[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 BUILD{ 'foome' }

sub foo{ 'original foo' }

sub bar{ 'original bar' }

sub bor{ 'original bor' }

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
44b04eb5	11	sub BUILD{ 'foome' }
44b04eb5	12
421e9f8d	13	sub foo{ 'original foo' }
	14
	15	sub bar{ 'original bar' }
	16
	17	sub bor{ 'original bor' }
	18
	19	1;