t/around-does.t

   1 use Test::More;
   2
   3 my $pass;
   4 my $pass2;
   5
   6 BEGIN {
   7         package Local::Role;
   8         use Role::Tiny;
   9         around does => sub {
  10                 my ($orig, $self, @args) = @_;
  11                 $pass++;
  12                 return $self->$orig(@args);
  13         };
  14         around DOES => sub {
  15                 my ($orig, $self, @args) = @_;
  16                 $pass2++;
  17                 return $self->$orig(@args);
  18         };
  19 }
  20
  21 BEGIN {
  22         package Local::Class;
  23         use Role::Tiny::With;
  24         with 'Local::Role';
  25 }
  26
  27 ok(Local::Class->does('Local::Role'));
  28 ok($pass);
  29 ok(Local::Class->DOES('Local::Role'));
  30 ok($pass2);
  31 done_testing();