view release on metacpan or  search on metacpan

Perl.pm  view on Meta::CPAN

  jack up; # do nothing. Errm, a no-op


  pash  "uppercase this string";
  squib "AND LOWERCASE THIS ONE";
 
  my $yabber = "some scalar\n";
  suss $yabber; # same as 'study'

  sub throw_another_shrimp_on_the_barbie 
  {
	rack off "no worries, mate"; # return
  }

  nick off; # an we're out of here! == exit 

=head1 DESCRIPTION


Inspired by Ron Kimballs's skit on Damian at the 

test.pl  view on Meta::CPAN

	print "not ok 9\n";
}

if (squib "LOWERCASE" eq "lowercase")
{
	print "ok 10\n";
} else {
	print "not ok 10\n";
}

sub throw_another_shrimp_on_the_barbie
{
	my $return;
	rack off "ok";
	$return  = "not ok\n";

}

if (throw_another_shrimp_on_the_barbie() eq "ok")
{
	print "ok 11\n";
} else {
	print "not ok 11\n";
}

eval 
{
	my $yabber = "briiiiiiisveeeeegas";
	suss $yabber;