8 use Test::More 'no_plan';
10 sub with::Mock::right { pass $_[1] }
11 sub with::Mock::wrong { fail $_[1] }
12 sub with::Mock::test { is $_[1], $_[2], $_[3] }
14 use with \bless {}, 'with::Mock';
17 my $s = q{wrong 'string'};
18 test $s, q{wrong 'string'}, 'string is preserved';
23 right 'after comment';
28 my $x = "heredoc"; right "before $x";
32 right qq[after heredoc];
33 test $y, "wrong('heredoc');\n", 'heredoc is preserved';
35 test $d, "wrong '__DATA__';\n", 'data is preserved';