t/42-deparse.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7
   8 if (eval 'use B::Deparse; 1') {
   9  plan tests => 2;
  10 } else {
  11  plan skip_all => 'B::Deparse is not available';
  12 }
  13
  14 my $bd = B::Deparse->new;
  15
  16 {
  17  no autovivification qw<fetch strict>;
  18
  19  sub blech { my $key = $_[0]->{key} }
  20 }
  21
  22 {
  23  my $undef;
  24  eval 'blech($undef)';
  25  like $@, qr/Reference vivification forbidden/, 'Original blech() works';
  26 }
  27
  28 {
  29  my $code = $bd->coderef2text(\&blech);
  30  my $undef;
  31  eval "$code; blech(\$undef)";
  32  like $@, qr/Reference vivification forbidden/, 'Deparsed blech() works';
  33 }