50 lines
645 B
Plaintext
50 lines
645 B
Plaintext
# #!/usr/bin/perl
|
|
|
|
# Moose package
|
|
snippet moosecl
|
|
package ${1:ClassName};
|
|
|
|
use Moose;
|
|
#extends ${2:# ParentClass};
|
|
|
|
${6:# body of class}
|
|
|
|
"one, but we're not the same";
|
|
|
|
__END__
|
|
|
|
=head1 NAME
|
|
|
|
$1 - ${3:ShortDesc}
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
${4:# synopsis...}
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
${5:# longer description...}
|
|
|
|
|
|
# has
|
|
snippet has
|
|
has ${1:attribute} => ( #{{{
|
|
is => '${2:ro|rw}',
|
|
isa => '${3:Str|Int|HashRef|ArrayRef|etc}',
|
|
default => ${4:defaultvalue}
|
|
,${5:# other attributes}
|
|
); #}}}
|
|
|
|
|
|
# override
|
|
snippet override
|
|
override ${1:attribute} => sub { #{{{
|
|
${2:# my $self = shift;};
|
|
${3:# my ($self,$args) = @_;};
|
|
}; #}}}
|
|
|
|
|
|
|
|
|
|
|