6 use Test::More tests => 9;
25 around qr/bark.*/ => sub {
26 'Dog::around(' . $_[0]->() . ')';
32 is( $dog->bark_once, 'Dog::around(bark)', 'around modifier is called' );
33 is( $dog->bark_twice, 'Dog::around(barkbark)', 'around modifier is called' );
39 our $BEFORE_BARK_COUNTER = 0;
40 our $AFTER_BARK_COUNTER = 0;
51 before qr/bark.*/ => sub {
52 $BEFORE_BARK_COUNTER++;
55 after qr/bark.*/ => sub {
56 $AFTER_BARK_COUNTER++;
63 is( $Cat::BEFORE_BARK_COUNTER, 1, 'before modifier is called once' );
64 is( $Cat::AFTER_BARK_COUNTER, 1, 'after modifier is called once' );
66 is( $Cat::BEFORE_BARK_COUNTER, 2, 'before modifier is called twice' );
67 is( $Cat::AFTER_BARK_COUNTER, 2, 'after modifier is called twice' );
74 before qr/bark.*/ => sub {};
75 } '... this is not currently supported';
78 around qr/bark.*/ => sub {};
79 } '... this is not currently supported';
82 after qr/bark.*/ => sub {};
83 } '... this is not currently supported';