perl.sct

来自「c#设计模式WithCla」· SCT 代码 · 共 25 行

package CLASS_NAME;
SKIP_NEXT_IF_BLANK SKIP_BEGIN @ISA qw( SKIP_END[BASE_CLASS] ); 


sub new
{
   [LITERAL_SYMBOL$self->{'ATTRIBUTE_NAME'} = "ATTRIBUTE_NAME";]
   bless LITERAL_SYMBOL$self;
}

[
###############################################
#  Function: OPERATION_NAME 
#  Purpose: OPERATION_COMMENT1 
#  Parameters: OPERATION_PARAMETERS
#  Comments: OPERATION_COMMENT2
###############################################

sub OPERATION_NAME {

OPERATION_CODE

}

]