new tasks
This commit is contained in:
parent
2a4d27cea0
commit
80737d5a6a
1194 changed files with 15353 additions and 1 deletions
12
Task/Classes/Perl/classes-2.pl
Normal file
12
Task/Classes/Perl/classes-2.pl
Normal file
|
|
@ -0,0 +1,12 @@
|
|||
{
|
||||
package MyClass;
|
||||
use Moose;
|
||||
|
||||
has 'variable' => (is => 'rw', default => 0);
|
||||
# constructor and accessor methods are added automatically
|
||||
|
||||
sub some_method {
|
||||
my $self = shift;
|
||||
$self->variable(1);
|
||||
}
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue