1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
#!/usr/bin/env perl
# Re RT#58715 and the claim in the documentation:
# If you have Getopt::Long::Descriptive the usage param is also passed to new.
# This tests the fix (that fulfills the documentation claim).
use strict; use warnings;
use Test::More tests => 3;
{
package MyClass;
use strict; use warnings;
use Mouse;
with 'MouseX::Getopt';
}
Mouse::Meta::Class->create('MyClassWithBasic',
superclasses => ['MyClass'],
roles => [ 'MouseX::Getopt::Basic' ],
);
my $basic_obj = MyClassWithBasic->new_with_options();
ok(!$basic_obj->meta->has_attribute('usage'), 'basic class has no usage attribute');
Mouse::Meta::Class->create('MyClassWithGLD',
superclasses => ['MyClass'],
roles => [ 'MouseX::Getopt' ],
);
my $gld_obj = MyClassWithGLD->new_with_options();
ok($gld_obj->meta->has_attribute('usage'), 'class has usage attribute');
isa_ok($gld_obj->usage, 'Getopt::Long::Descriptive::Usage');
|
