Files

 master

/

11_args.t

Copy path

Blame

Blame

Latest commit

 

History

History

14 lines (10 loc) · 279 Bytes

 master

/

11_args.t

Top

File metadata and controls

• Code
• Blame

14 lines (10 loc) · 279 Bytes

Raw

1

2

3

4

5

6

7

8

9

10

11

12

13

14

use Test::More;

use Plass;

my $human = plass

walk => sub {

my ( $self, $dir ) = @_;

return $self->name. " walks to $dir.";

};

my $ytnobody = $human->plass( name => 'ytnobody' );

is $ytnobody->walk( 'east' ), 'ytnobody walks to east.';

done_testing();