9 if (exists $INC{'B.pm'} or exists $INC{'B/Deparse.pm'}) {
10 plan skip_all => 'Test::More loaded B or B::Deparse for some reason';
19 is_deeply [ sort keys %B:: ], [ sort
20 qw/OP:: Deparse:: Hooks::/,
23 ], 'No extra symbols in B::';
24 is_deeply [ sort keys %B::Deparse:: ], [ sort
26 ], 'No extra symbols in B::Deparse';
32 for my $meth (qw/first can/) {
33 ok do { no strict 'refs'; defined &{"B::OP::$meth"} },
34 "B::OP::$meth is now defined";
41 for my $meth (qw/pp_custom/) {
42 ok do { no strict 'refs'; defined &{"B::Deparse::$meth"} },
43 "B::Deparse::$meth is now defined";