[catagits/Catalyst-Runtime.git] / t / lib / Catalyst / Script / Baz.pm

package Catalyst::Script::Baz;
use Moose;
use namespace::clean -except => [ 'meta' ];

use Test::More;

with 'Catalyst::ScriptRole';

sub run { __PACKAGE__ }

after new_with_options => sub {
    my ($self, %args) = @_;
    is_deeply \%args, { application_name => 'ScriptTestApp' }, 'App name correct';
};

1;
Commit	Line	Data
c9105896	1	package Catalyst::Script::Baz;
c9105896	2	use Moose;
eefc03e1	3	use namespace::clean -except => [ 'meta' ];
c9105896	4
	5	use Test::More;
	6
	7	with 'Catalyst::ScriptRole';
	8
	9	sub run { __PACKAGE__ }
	10
	11	after new_with_options => sub {
	12	my ($self, %args) = @_;
	13	is_deeply \%args, { application_name => 'ScriptTestApp' }, 'App name correct';
	14	};
	15
	16	1;