[urisagit/Perl-Docs.git] / experiment / carp.pl

#!/usr/local/bin/perl


use Carp ;

$carp = shift ;

( ( $carp eq 'carp' ) ? \&carp : \&croak )->( "can't open file\n ) ;

print "ok\n" ;
Commit	Line	Data
635c7876	1	#!/usr/local/bin/perl
	2
	3
	4	use Carp ;
	5
	6	$carp = shift ;
	7
	8	( ( $carp eq 'carp' ) ? \&carp : \&croak )->( "can't open file\n ) ;
	9
	10	print "ok\n" ;