t/RT42725_deparse.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More tests => 2;
   5 use Sub::Name;
   6 use B::Deparse;
   7
   8 my $source = eval {
   9     B::Deparse->new->coderef2text(subname foo => sub{ @_ });
  10 };
  11
  12 ok !$@;
  13
  14 like $source, qr/\@\_/;