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
36
37
38
39
40
41
42
43
44
45
46
47
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::Exception;
use Catmandu::Util qw(is_code_ref);
use Role::Tiny;
my $pkg;
BEGIN {
$pkg = 'Catmandu::Fix::Base';
use_ok $pkg;
}
require_ok $pkg;
{
package T::FixBaseWithoutEmit;
use Moo;
package T::FixBase;
use Moo;
with $pkg;
sub emit {
'$_[0]->{fix} = "base"';
}
package T::UseFixBase;
use Moo;
T::FixBase->import(as => 'do_fix_base');
}
throws_ok {Role::Tiny->apply_role_to_package('T::FixBaseWithoutEmit', $pkg)}
qr/missing emit/;
my $fb = T::FixBase->new;
can_ok $fb, 'emit';
can_ok $fb, 'import';
can_ok $fb, 'fix';
is_deeply {fix => 'base'}, T::UseFixBase::do_fix_base({});
done_testing;
|
