[gitmo/Mouse.git] / example / traits.pl

#!perl
package IntStack;
use Mouse;

has storage => (
    is => 'ro',
    isa => 'ArrayRef[Int]',

    default => sub{ [] },
    traits  => [qw(Array)],

    handles => {
        push => 'push',
        pop  => 'pop',
        top  => [ get => -1 ],
    },
);

__PACKAGE__->meta->make_immutable();

package main;

my $stack = IntStack->new;

$stack->push(42);
$stack->push(27);

print $stack->pop, "\n";
print $stack->top, "\n";
Commit	Line	Data
a41b51bd	1	#!perl
	2	package IntStack;
	3	use Mouse;
	4
	5	has storage => (
	6	is => 'ro',
	7	isa => 'ArrayRef[Int]',
	8
	9	default => sub{ [] },
	10	traits => [qw(Array)],
	11
	12	handles => {
	13	push => 'push',
	14	pop => 'pop',
	15	top => [ get => -1 ],
	16	},
	17	);
	18
	19	__PACKAGE__->meta->make_immutable();
	20
	21	package main;
	22
	23	my $stack = IntStack->new;
	24
	25	$stack->push(42);
	26	$stack->push(27);
	27
	28	print $stack->pop, "\n";
	29	print $stack->top, "\n";
	30