view release on metacpan or  search on metacpan

DoubleHelix.pm  view on Meta::CPAN

(my $sequence = join "", <0>) =~ s/.*^\s*use\s+Acme::DoubleHelix\s*;\n//sm;

do { eval decode $sequence; exit } if promoted $sequence;

open 0, ">$0" or print "Cannot encode '$0'\n" and exit;
print {0} "use Acme::DoubleHelix;\n", encode $sequence and exit;


1;
__END__
# Below is stub documentation for your module. You better edit it!

=head1 NAME

Acme::DoubleHelix - Double-helix programming

=head1 SYNOPSIS

  use Acme::DoubleHelix;
  print "Hello";