51 lines
596 B
Plaintext
51 lines
596 B
Plaintext
# #!/usr/bin/perl
|
|
|
|
# Moose package
|
|
snippet moosecl
|
|
package ${1:ClassName};
|
|
|
|
use Moose;
|
|
#extends ${2:# ParentClass};
|
|
|
|
${6:# body of class}
|
|
|
|
1;
|
|
|
|
|
|
__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) = @_;};
|
|
};
|
|
|
|
|
|
|
|
|
|
|