13 my $err = "Unimplemented at $0 line " . ( __LINE__ + 2 ) . ".\n";
19 $err = "foo at $0 line " . ( __LINE__ + 2 ) . ".\n";
25 $err = "Died at $0 line " . ( __LINE__ + 2 ) . ".\n";
33 local $SIG{__WARN__} = sub { $warning = shift };
35 $err = "bar at $0 line " . ( __LINE__ + 2 ) . ".\n";
41 $err = "Warning: something's wrong at $0 line " . ( __LINE__ + 2 ) . ".\n";