You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
17 lines
241 B
17 lines
241 B
package SpitTest;
|
|
|
|
use base 'App::WRT::MethodSpit';
|
|
|
|
__PACKAGE__->methodspit( qw( cat ) );
|
|
__PACKAGE__->methodspit_depend(
|
|
'cat',
|
|
{ moose => 'bark' }
|
|
);
|
|
|
|
sub new {
|
|
my ($class) = shift;
|
|
my $self = { @_ };
|
|
bless $self, $class;
|
|
}
|
|
|
|
1;
|