[gitmo/MooseX-Object-Pluggable.git] / t / lib / TestApp.pm

package TestApp;

use strict;
use warnings;
use Moose;

with 'MooseX::Object::Pluggable';

has bee => (is => 'rw', isa => 'Int', required => 1, default => '100');

sub foo{ 'original foo' }

sub bar{ 'original bar' }

sub bor{ 'original bor' }

__PACKAGE__->meta->make_immutable;

1;
Commit	Line	Data
421e9f8d	1	package TestApp;
	2
	3	use strict;
	4	use warnings;
	5	use Moose;
	6
	7	with 'MooseX::Object::Pluggable';
	8
	9	has bee => (is => 'rw', isa => 'Int', required => 1, default => '100');
	10
	11	sub foo{ 'original foo' }
	12
	13	sub bar{ 'original bar' }
	14
	15	sub bor{ 'original bor' }
	16
9843fa64	17	__PACKAGE__->meta->make_immutable;
9843fa64	18
421e9f8d	19	1;