#!/usr/bin/perl

use strict;
use warnings;

use Test::Most qw{no_plan};
use Carp::Always;

#-----------------------------------------------------------------
#
#-----------------------------------------------------------------
BEGIN {
package My::Test;
use Moose;
sub thing {}
around thing => sub{
   use Sub::Identify ':all';
   my $next = shift;
   my $self = shift;

   return sub_name( $next );
};


};
#-----------------------------------------------------------------
#
#-----------------------------------------------------------------
ok( my $t  = My::Test->new() );
is( $t->thing, 'thing' );