[catagits/CatalystX-Declare.git] / t / lib / TestApp / Model / TestModel.pm

use CatalystX::Declare;

model TestApp::Model::TestModel {

    use MooseX::Types::Moose qw( Int );

    has counter => (
        is          => 'rw',
        isa         => Int,
        required    => 1,
        default     => 0,
    );

    method next {
        $self->counter( $self->counter + 1 );
        return $self->counter;
    }

    method reset {
        $self->counter(0);
        return 'reset';
    }
}
Commit	Line	Data
8e5d9092	1	use CatalystX::Declare;
	2
	3	model TestApp::Model::TestModel {
	4
	5	use MooseX::Types::Moose qw( Int );
	6
	7	has counter => (
	8	is => 'rw',
	9	isa => Int,
	10	required => 1,
	11	default => 0,
	12	);
	13
	14	method next {
	15	$self->counter( $self->counter + 1 );
	16	return $self->counter;
	17	}
	18
	19	method reset {
	20	$self->counter(0);
	21	return 'reset';
	22	}
	23	}