view release on metacpan or  search on metacpan

script/tubergen  view on Meta::CPAN

#!/usr/bin/env perl
# vim: sts=3 ts=3 sw=3 et ai :
BEGIN {
   local ($x, @ARGV, $/) = ('# __MOBUNDLE_INCLUSION__', __FILE__);
   eval($mobundle = (<> =~ m{(^$x.*^$x)}ms)[0]);
}

use strict;
use warnings;
use 5.010;
my $VERSION = "0.740";
use Log::Log4perl::Tiny qw< :easy LOGLEVEL >;
use Data::Tubes qw< pipeline >;

script/tubergen  view on Meta::CPAN

# __MOBUNDLE_INCLUSION__


sub template {
   my $template = <<'END_OF_TEMPLATE';
 #!/usr/bin/env perl
 # vim: sts=3 ts=3 sw=3 et ai :
 
 ### LEAVE THIS INITIAL SECTION AS-IS ##################################
 BEGIN {
    local ($x, @ARGV, $/) = ('# __MOBUNDLE_INCLUSION__', __FILE__);
    eval((<> =~ m{(^$x.*^$x)}ms)[0]);
 }
 use strict;
 use warnings;
 use Pod::Usage qw< pod2usage >;
 use Getopt::Long qw< :config gnu_getopt >;
 use Data::Tubes qw< pipeline summon >;
 ### YOU CAN START CHANGING THINGS FROM HERE ON #########################
 
 ########################################################################