view release on metacpan or  search on metacpan

t/snippets3.t  view on Meta::CPAN

# Breaking before a ++ can cause perl to guess wrong
print( ( $i++ & 1 ) ? $_ : ( $change{$_} || $_ ) );

# Space between '&' and 'O_ACCMODE' is essential here
$opts{rdonly} = (($opts{mode} & O_ACCMODE) == O_RDONLY);
----------

        'extrude4' => <<'----------',
# From Safe.pm caused trouble with extrude
use Opcode 1.01, qw(
  opset opset_to_ops opmask_add
  empty_opset full_opset invert_opset verify_opset
  opdesc opcodes opmask define_optag opset_to_hex
);
----------

        'fabrice_bug' => <<'----------',
# no space around ^variable with -bt=0
my $before = ${^PREMATCH};
my $after  = ${PREMATCH};
----------

        'format1' => <<'----------',

t/snippets3.t  view on Meta::CPAN

;
#13...........
        },

        'extrude4.def' => {
            source => "extrude4",
            params => "def",
            expect => <<'#14...........',
# From Safe.pm caused trouble with extrude
use Opcode 1.01, qw(
  opset opset_to_ops opmask_add
  empty_opset full_opset invert_opset verify_opset
  opdesc opcodes opmask define_optag opset_to_hex
);
#14...........
        },

        'extrude4.extrude' => {
            source => "extrude4",
            params => "extrude",
            expect => <<'#15...........',
# From Safe.pm caused trouble with extrude
use
Opcode
1.01
,
qw(
opset opset_to_ops opmask_add
empty_opset full_opset invert_opset verify_opset
opdesc opcodes opmask define_optag opset_to_hex
)
;
#15...........
        },

        'fabrice_bug.def' => {
            source => "fabrice_bug",
            params => "def",
            expect => <<'#16...........',
# no space around ^variable with -bt=0