- or download this
OP_PRINT
OP_PUSHMARK
OP_RV2AV
OP_GV
NULL
- or download this
+OP_NULL
+OP_OR
OP_PRINT
...
+OP_PUSHMARK
+OP_NULL
+OP_GVSV
- or download this
use Data::Dumper 'Dumper';
use Devel::CodeDiff 'code_diff';
...
}
print Dumper( @d );
- or download this
$VAR1 = [
'- 3 OP_PRINT',
'+ 3 OP_NULL',
...
'+ 12 OP_NULL',
'+ 13 OP_GVSV'
];
- or download this
package Devel::CodeDiff;
use strict;
use warnings;
...
=head1 COPYRIGHT AND LICENSE
=cut