allow isa => SomeRandomClass in +foo attr declarations

[gitmo/Moose.git] / t / 010_basics / 010_method_keyword.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 1;

BEGIN {
    use_ok('Moose');
}

1;

__END__

=pod

I dont think I am going to keep this feature, but 
the tests are commented out for now.

{
    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');

=cut