[gitmo/Moose.git] / t / 019_method_keyword.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More no_plan => 1;

BEGIN {
    use_ok('Moose');
}

{
    package Foo;
    use Moose;
    
    sub greetings {
        "Hello, $_[1]";
    }
    
    method 'greet_world_from' => sub {
        my $from = shift;
        self->greetings("World") . " from $from";
    };    
    
    method 'greet_world_from_me' => sub {
        self->greet_world_from("Stevan");
    };  
    
    no Moose;  
}

my $foo = Foo->new;
isa_ok($foo, 'Foo');

is($foo->greetings('World'), 'Hello, World', '... got the right value from greetings');
is($foo->greet_world_from('Stevan'), 'Hello, World from Stevan', '... got the right value from greet_world_from');
is($foo->greet_world_from_me, 'Hello, World from Stevan', '... got the right value from greet_world');
Commit	Line	Data
3279ab4a	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More no_plan => 1;
	7
	8	BEGIN {
	9	use_ok('Moose');
	10	}
	11
	12	{
	13	package Foo;
	14	use Moose;
	15
	16	sub greetings {
	17	"Hello, $_[1]";
	18	}
	19
	20	method 'greet_world_from' => sub {
	21	my $from = shift;
	22	self->greetings("World") . " from $from";
	23	};
	24
	25	method 'greet_world_from_me' => sub {
	26	self->greet_world_from("Stevan");
	27	};
	28
	29	no Moose;
	30	}
	31
	32	my $foo = Foo->new;
	33	isa_ok($foo, 'Foo');
	34
	35	is($foo->greetings('World'), 'Hello, World', '... got the right value from greetings');
	36	is($foo->greet_world_from('Stevan'), 'Hello, World from Stevan', '... got the right value from greet_world_from');
	37	is($foo->greet_world_from_me, 'Hello, World from Stevan', '... got the right value from greet_world');