Commit | Line | Data |
---|---|---|
744e2821 | 1 | #!/usr/bin/env perl |
2 | use strict; | |
3 | use warnings; | |
4 | ||
5 | use FindBin; | |
6 | use lib "$FindBin::Bin/lib"; | |
7 | ||
8 | use Test::More; | |
9 | ||
10 | use aliased 'TestApp::TestRole'; | |
11 | ||
12 | ok +(my $meta = TestRole->meta), 'controller role has meta'; | |
13 | ||
14 | ok $meta->has_method('something_from_the_role'), 'method is available in role'; | |
15 | ok $meta->has_method('action_from_ctrl_role'), 'action method is available in role'; | |
16 | ||
17 | done_testing; |