caller\( results from the CPAN

App-mimi

view release on metacpan or search on metacpan

#!/usr/bin/env perl

# This chunk of stuff was generated by App::FatPacker. To find the original
# file's code, look for the end of this BEGIN block or the string 'FATPACK'
BEGIN {
my %fatpacked;

$fatpacked{"App/mimi.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'APP_MIMI';
  package App::mimi;use strict;use warnings;our$VERSION='0.03';use Carp qw(croak);use File::Spec;use File::Basename ();use DBI;use App::mimi::db;sub new {my$class=shift;my (%params)=@_;my$self={};bless$self,$class;$self->{dsn}=$params{dsn};$self->{sc...
APP_MIMI

$fatpacked{"App/mimi/db.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'APP_MIMI_DB';
  package App::mimi::db;use strict;use warnings;use Carp qw(croak);sub new {my$class=shift;my (%params)=@_;my$self={};bless$self,$class;$self->{dbh}=$params{dbh}or croak 'dbh required';$self->{columns}=[qw/no created status error/];return$self}sub is...
      CREATE TABLE mimi (
          id INTEGER PRIMARY KEY AUTOINCREMENT,
          created INTEGER NOT NULL,
          no INTEGER NOT NULL,
          status VARCHAR(32) NOT NULL,
          error VARCHAR(255)
      );
  EOF
      CREATE TABLE mimi (
          id serial PRIMARY KEY,
          created INTEGER NOT NULL,
          no INTEGER NOT NULL,
          status VARCHAR(32) NOT NULL,
          error VARCHAR(255)
      );
  EOF
APP_MIMI_DB

$fatpacked{"Bundle/DBI.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'BUNDLE_DBI';
  package Bundle::DBI;use strict;our$VERSION="0.03";1;
BUNDLE_DBI

$fatpacked{"Class/Accessor/Lite.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'CLASS_ACCESSOR_LITE';
  package Class::Accessor::Lite;use strict;our$VERSION='0.03';sub croak {require Carp;Carp::croak(@_)}sub import {shift;my%args=@_;my$pkg=caller(0);my%key_ctor=(rw=>\&_mk_accessors,ro=>\&_mk_ro_accessors,wo=>\&_mk_wo_accessors,);for my$key (sort keys...
CLASS_ACCESSOR_LITE

$fatpacked{"DBD/DBM.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_DBM';
  require 5.008;use strict;package DBD::DBM;use base qw(DBD::File);use vars qw($VERSION $ATTRIBUTION $drh $methods_already_installed);$VERSION='0.03';$ATTRIBUTION='DBD::DBM by Jens Rehsack';sub driver ($;$) {my ($class,$attr)=@_;return$drh if ($drh);...
DBD_DBM

$fatpacked{"DBD/ExampleP.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_EXAMPLEP';
  {package DBD::ExampleP;use strict;use Symbol;use DBI qw(:sql_types);require File::Spec;our (@EXPORT,$VERSION,@statnames,%statnames,@stattypes,%stattypes,@statprec,%statprec,$drh,);@EXPORT=qw();$VERSION="0.03";@statnames=qw(dev ino mode nlink uid gi...
DBD_EXAMPLEP

$fatpacked{"DBD/File.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_FILE';
  require 5.008;use strict;use warnings;use DBI ();package DBD::File;use strict;use warnings;use base qw(DBI::DBD::SqlEngine);use Carp;use vars qw(@ISA $VERSION $drh);$VERSION="0.03";$drh=undef;sub driver ($;$) {my ($class,$attr)=@_;$drh->{$class}and...
DBD_FILE

$fatpacked{"DBD/Gofer.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_GOFER';
  {package DBD::Gofer;use strict;require DBI;require DBI::Gofer::Request;require DBI::Gofer::Response;require Carp;our$VERSION="0.03";our%xxh_local_store_attrib=map {$_=>1}qw(Active CachedKids Callbacks DbTypeSubclass ErrCount Executed FetchHashKeyNa...
DBD_GOFER

$fatpacked{"DBD/Gofer/Policy/Base.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_GOFER_POLICY_BASE';
  package DBD::Gofer::Policy::Base;use strict;use warnings;use Carp;our$VERSION="0.03";our$AUTOLOAD;my%policy_defaults=(connect_method=>'connect',prepare_method=>'prepare',skip_connect_check=>0,skip_default_methods=>0,skip_prepare_check=>0,skip_ping=...
DBD_GOFER_POLICY_BASE

$fatpacked{"DBD/Gofer/Policy/classic.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_GOFER_POLICY_CLASSIC';
  package DBD::Gofer::Policy::classic;use strict;use warnings;our$VERSION="0.03";use base qw(DBD::Gofer::Policy::Base);__PACKAGE__->create_policy_subs({connect_method=>'connect_cached',prepare_method=>'',skip_connect_check=>0,skip_prepare_check=>1,sk...
DBD_GOFER_POLICY_CLASSIC

$fatpacked{"DBD/Gofer/Policy/pedantic.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_GOFER_POLICY_PEDANTIC';
  package DBD::Gofer::Policy::pedantic;use strict;use warnings;our$VERSION="0.03";use base qw(DBD::Gofer::Policy::Base);1;
DBD_GOFER_POLICY_PEDANTIC

$fatpacked{"DBD/Gofer/Policy/rush.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_GOFER_POLICY_RUSH';
  package DBD::Gofer::Policy::rush;use strict;use warnings;our$VERSION="0.03";use base qw(DBD::Gofer::Policy::Base);__PACKAGE__->create_policy_subs({connect_method=>'connect_cached',prepare_method=>'',skip_connect_check=>1,skip_prepare_check=>1,skip_...
DBD_GOFER_POLICY_RUSH

$fatpacked{"DBD/Gofer/Transport/Base.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_GOFER_TRANSPORT_BASE';
  package DBD::Gofer::Transport::Base;use strict;use warnings;use base qw(DBI::Gofer::Transport::Base);our$VERSION="0.03";__PACKAGE__->mk_accessors(qw(trace go_dsn go_url go_policy go_timeout go_retry_hook go_retry_limit go_cache cache_hit cache_miss...
DBD_GOFER_TRANSPORT_BASE

$fatpacked{"DBD/Gofer/Transport/corostream.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_GOFER_TRANSPORT_COROSTREAM';
  package DBD::Gofer::Transport::corostream;use strict;use warnings;use Carp;use Coro::Select;use Coro;use Coro::Handle;use base qw(DBD::Gofer::Transport::stream);sub start_pipe_command {local$ENV{DBI_PUREPERL}=$ENV{DBI_PUREPERL_COROCHILD};my$connect...
DBD_GOFER_TRANSPORT_COROSTREAM

$fatpacked{"DBD/Gofer/Transport/null.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_GOFER_TRANSPORT_NULL';
  package DBD::Gofer::Transport::null;use strict;use warnings;use base qw(DBD::Gofer::Transport::Base);use DBI::Gofer::Execute;our$VERSION="0.03";__PACKAGE__->mk_accessors(qw(pending_response transmit_count));my$executor=DBI::Gofer::Execute->new();su...
DBD_GOFER_TRANSPORT_NULL

$fatpacked{"DBD/Gofer/Transport/pipeone.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_GOFER_TRANSPORT_PIPEONE';
  package DBD::Gofer::Transport::pipeone;use strict;use warnings;use Carp;use Fcntl;use IO::Select;use IPC::Open3 qw(open3);use Symbol qw(gensym);use base qw(DBD::Gofer::Transport::Base);our$VERSION="0.03";__PACKAGE__->mk_accessors(qw(connection_info...
DBD_GOFER_TRANSPORT_PIPEONE

$fatpacked{"DBD/Gofer/Transport/stream.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_GOFER_TRANSPORT_STREAM';
  package DBD::Gofer::Transport::stream;use strict;use warnings;use Carp;use base qw(DBD::Gofer::Transport::pipeone);our$VERSION="0.03";__PACKAGE__->mk_accessors(qw(go_persist));my$persist_all=5;my%persist;sub _connection_key {my ($self)=@_;return jo...
DBD_GOFER_TRANSPORT_STREAM

$fatpacked{"DBD/NullP.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_NULLP';
  use strict;{package DBD::NullP;require DBI;require Carp;our@EXPORT=qw();our$VERSION="0.03";our$drh=undef;sub driver{return$drh if$drh;my($class,$attr)=@_;$class .= "::dr";($drh)=DBI::_new_drh($class,{'Name'=>'NullP','Version'=>$VERSION,'Attribution...
DBD_NULLP

$fatpacked{"DBD/Proxy.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_PROXY';
  use strict;use Carp;require DBI;DBI->require_version(1.0201);use RPC::PlClient 0.2000;{package DBD::Proxy::RPC::PlClient;@DBD::Proxy::RPC::PlClient::ISA=qw(RPC::PlClient);sub Call {my$self=shift;if ($self->{debug}){my ($rpcmeth,$obj,$method,@args)=...

mimi.fatpack view on Meta::CPAN

  
  use strict;
  use DBD::${driver};
  
  # Beware: not officially documented interfaces...
  # use DBI::Const::GetInfoType qw(\%GetInfoType);
  # use DBI::Const::GetInfoReturn qw(\%GetInfoReturnTypes \%GetInfoReturnValues);
  
  my \$sql_driver = '${driver}';
  my \$sql_ver_fmt = '%02d.%02d.%04d';   # ODBC version string: ##.##.#####
  my \$sql_driver_ver = sprintf \$sql_ver_fmt, split (/\\./, \$DBD::${driver}::VERSION);
  PERL
  
  sub sql_data_source_name {
      my $dbh = shift;
      return "dbi:$sql_driver:" . $dbh->{Name};
  }
  
  sub sql_user_name {
      my $dbh = shift;
      # CURRENT_USER is a non-standard attribute, probably undef
      # Username is a standard DBI attribute
      return $dbh->{CURRENT_USER} || $dbh->{Username};
  }
  
  PERL
  
  # Transfer this to ${driver}.pm
  
  # The type_info_all function was automatically generated by
  # DBI::DBD::Metadata::write_typeinfo_pm v$DBI::DBD::Metadata::VERSION.
  
  package DBD::${driver}::db;         # This line can be removed once transferred.
  
      sub type_info_all
      {
          my (\$dbh) = \@_;
          require DBD::${driver}::TypeInfo;
          return [ \@\$DBD::${driver}::TypeInfo::type_info_all ];
      }
  
  # Transfer this to lib/DBD/${driver}/TypeInfo.pm.
  # Don't forget to add version and intellectual property control information.
  
  # The \%type_info_all hash was automatically generated by
  # DBI::DBD::Metadata::write_typeinfo_pm v$DBI::DBD::Metadata::VERSION.
  
  package DBD::${driver}::TypeInfo;
  
  {
      require Exporter;
      require DynaLoader;
      \@ISA = qw(Exporter DynaLoader);
      \@EXPORT = qw(type_info_all);
      use DBI qw(:sql_types);
  
  PERL
DBI_DBD_METADATA

$fatpacked{"DBI/DBD/SqlEngine.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_DBD_SQLENGINE';
  require 5.008;use strict;use DBI ();require DBI::SQL::Nano;package DBI::DBD::SqlEngine;use strict;use Carp;use vars qw(@ISA $VERSION $drh %methods_installed);$VERSION="0.03";$drh=undef;DBI->setup_driver("DBI::DBD::SqlEngine");my%accessors=(versions...
  sub %s::%s
  {
      my $func = %s->can (q{%s});
      goto &$func;
      }
  EOI
DBI_DBD_SQLENGINE

$fatpacked{"DBI/Gofer/Execute.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_EXECUTE';
  package DBI::Gofer::Execute;use strict;use warnings;use Carp;use DBI qw(dbi_time);use DBI::Gofer::Request;use DBI::Gofer::Response;use base qw(DBI::Util::_accessor);our$VERSION="0.03";our@all_dbh_methods=sort map {keys %$_}$DBI::DBI_methods{db},$DB...
DBI_GOFER_EXECUTE

$fatpacked{"DBI/Gofer/Request.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_REQUEST';
  package DBI::Gofer::Request;use strict;use DBI qw(neat neat_list);use base qw(DBI::Util::_accessor);our$VERSION="0.03";use constant GOf_REQUEST_IDEMPOTENT=>0x0001;use constant GOf_REQUEST_READONLY=>0x0002;our@EXPORT=qw(GOf_REQUEST_IDEMPOTENT GOf_RE...
DBI_GOFER_REQUEST

$fatpacked{"DBI/Gofer/Response.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_RESPONSE';
  package DBI::Gofer::Response;use strict;use Carp;use DBI qw(neat neat_list);use base qw(DBI::Util::_accessor Exporter);our$VERSION="0.03";use constant GOf_RESPONSE_EXECUTED=>0x0001;our@EXPORT=qw(GOf_RESPONSE_EXECUTED);__PACKAGE__->mk_accessors(qw(v...
DBI_GOFER_RESPONSE

$fatpacked{"DBI/Gofer/Serializer/Base.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_SERIALIZER_BASE';
  package DBI::Gofer::Serializer::Base;use strict;use warnings;use Carp qw(croak);our$VERSION="0.03";sub new {my$class=shift;my$deserializer_class=$class->deserializer_class;return bless {deserializer_class=>$deserializer_class }=>$class}sub deserial...
DBI_GOFER_SERIALIZER_BASE

$fatpacked{"DBI/Gofer/Serializer/DataDumper.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_SERIALIZER_DATADUMPER';
  package DBI::Gofer::Serializer::DataDumper;use strict;use warnings;our$VERSION="0.03";use Data::Dumper;use base qw(DBI::Gofer::Serializer::Base);sub serialize {my$self=shift;local$Data::Dumper::Indent=1;local$Data::Dumper::Terse=1;local$Data::Dumpe...
DBI_GOFER_SERIALIZER_DATADUMPER

$fatpacked{"DBI/Gofer/Serializer/Storable.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_SERIALIZER_STORABLE';
  package DBI::Gofer::Serializer::Storable;use strict;use warnings;use base qw(DBI::Gofer::Serializer::Base);use Storable qw(nfreeze thaw);our$VERSION="0.03";use base qw(DBI::Gofer::Serializer::Base);sub serialize {my$self=shift;local$Storable::forgi...
DBI_GOFER_SERIALIZER_STORABLE

$fatpacked{"DBI/Gofer/Transport/Base.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_TRANSPORT_BASE';
  package DBI::Gofer::Transport::Base;use strict;use warnings;use DBI;use base qw(DBI::Util::_accessor);use DBI::Gofer::Serializer::Storable;use DBI::Gofer::Serializer::DataDumper;our$VERSION="0.03";__PACKAGE__->mk_accessors(qw(trace keep_meta_frozen...
DBI_GOFER_TRANSPORT_BASE

$fatpacked{"DBI/Gofer/Transport/pipeone.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_TRANSPORT_PIPEONE';
  package DBI::Gofer::Transport::pipeone;use strict;use warnings;use DBI::Gofer::Execute;use base qw(DBI::Gofer::Transport::Base Exporter);our$VERSION="0.03";our@EXPORT=qw(run_one_stdio);my$executor=DBI::Gofer::Execute->new();sub run_one_stdio {binmo...
DBI_GOFER_TRANSPORT_PIPEONE

$fatpacked{"DBI/Gofer/Transport/stream.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_TRANSPORT_STREAM';
  package DBI::Gofer::Transport::stream;use strict;use warnings;use DBI qw(dbi_time);use DBI::Gofer::Execute;use base qw(DBI::Gofer::Transport::pipeone Exporter);our$VERSION="0.03";our@EXPORT=qw(run_stdio_hex);my$executor=DBI::Gofer::Execute->new();s...
DBI_GOFER_TRANSPORT_STREAM

$fatpacked{"DBI/Profile.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_PROFILE';
  package DBI::Profile;use strict;use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);use Exporter ();use UNIVERSAL ();use Carp;use DBI qw(dbi_time dbi_profile dbi_profile_merge_nodes dbi_profile_merge);$VERSION="0.03";@ISA=qw(Exporter);@EXPORT=qw(DBIprofi...
DBI_PROFILE

$fatpacked{"DBI/ProfileData.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_PROFILEDATA';
  package DBI::ProfileData;use strict;our$VERSION="0.03";use Carp qw(croak);use Symbol;use Fcntl qw(:flock);use DBI::Profile qw(dbi_profile_merge);sub COUNT () {0};sub TOTAL () {1};sub FIRST () {2};sub SHORTEST () {3};sub LONGEST () {4};sub FIRST_AT ...
    Count         : %d
    Total Time    : %3.6f seconds
    Longest Time  : %3.6f seconds
    Shortest Time : %3.6f seconds
    Average Time  : %3.6f seconds
  END
    Count         : %d
    Time          : %3.6f seconds
  END

mimi.fatpack view on Meta::CPAN

  package DBI::SQL::Nano;use strict;use warnings;use vars qw($VERSION $versions);use Carp qw(croak);require DBI;BEGIN {$VERSION="0.03";$versions->{nano_version}=$VERSION;if ($ENV{DBI_SQL_NANO}||!eval {require SQL::Statement;$SQL::Statement::VERSION g...
DBI_SQL_NANO

$fatpacked{"DBI/Util/CacheMemory.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_UTIL_CACHEMEMORY';
  package DBI::Util::CacheMemory;use strict;use warnings;our$VERSION="0.03";my%cache;sub new {my ($class,%options)=@_;my$namespace=$options{namespace}||= 'Default';my$self=bless \%options=>$class;$cache{$namespace }||= {};return$self}sub set {my ($se...
DBI_UTIL_CACHEMEMORY

$fatpacked{"DBI/Util/_accessor.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_UTIL__ACCESSOR';
  package DBI::Util::_accessor;use strict;use Carp;our$VERSION="0.03";sub new {my($proto,$fields)=@_;my($class)=ref$proto || $proto;$fields ||= {};my@dubious=grep {!m/^_/ &&!$proto->can($_)}keys %$fields;carp "$class doesn't have accessors for fields...
DBI_UTIL__ACCESSOR

$fatpacked{"DBI/W32ODBC.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_W32ODBC';
  package DBI;${'DBI::VERSION'}="0.01";my$Revision=sprintf("12.%06d",q$Revision: 8696 $ =~ /(\d+)/o);sub DBI::W32ODBC::import {}use Carp;use Win32::ODBC;@ISA=qw(Win32::ODBC);use strict;$DBI::dbi_debug=$ENV{PERL_DBI_DEBUG}|| 0;carp "Loaded (W32ODBC) D...
DBI_W32ODBC

$fatpacked{"Docopt.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DOCOPT';
  use 5.008005;use strict;use warnings FATAL=>'all';package Docopt;use Docopt::Util qw(string_partition in serialize defined_or);package Docopt::Pattern;use Docopt::Util qw(defined_or);sub new {my$class=shift;bless [],$class}sub fix {my$self=shift;$s...
DOCOPT

$fatpacked{"Docopt/Util.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DOCOPT_UTIL';
  package Docopt::Util;use strict;use warnings;use utf8;use parent qw(Exporter);use boolean;our@EXPORT_OK=qw(repl class_name string_strip string_partition in True False is_number defined_or serialize pyprint);sub True() {true}sub False() {false}use D...
DOCOPT_UTIL

$fatpacked{"Exporter/Shiny.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'EXPORTER_SHINY';
  package Exporter::Shiny;use 5.006001;use strict;use warnings;use Exporter::Tiny ();our$AUTHORITY='cpan:TOBYINK';our$VERSION='0.03';sub import {my$me=shift;my$caller=caller;(my$nominal_file=$caller)=~ s(::)(/)g;$INC{"$nominal_file\.pm"}||= __FILE__;...
EXPORTER_SHINY

$fatpacked{"Exporter/Tiny.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'EXPORTER_TINY';
  package Exporter::Tiny;use 5.006001;use strict;use warnings;no warnings qw(void once uninitialized numeric redefine);our$AUTHORITY='cpan:TOBYINK';our$VERSION='0.03';our@EXPORT_OK=qw<mkopt mkopt_hash _croak _carp>;sub _croak ($;@) {require Carp;my$f...
EXPORTER_TINY

$fatpacked{"ExtUtils/Config.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'EXTUTILS_CONFIG';
  package ExtUtils::Config;$ExtUtils::Config::VERSION='0.03';use strict;use warnings;use Config;use Data::Dumper ();sub new {my ($pack,$args)=@_;return bless {values=>($args ? {%$args }: {}),},$pack}sub get {my ($self,$key)=@_;return exists$self->{va...
EXTUTILS_CONFIG

$fatpacked{"ExtUtils/Helpers.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'EXTUTILS_HELPERS';
  package ExtUtils::Helpers;$ExtUtils::Helpers::VERSION='0.03';use strict;use warnings FATAL=>'all';use Exporter 5.57 'import';use Config;use File::Basename qw/basename/;use File::Spec::Functions qw/splitpath canonpath abs2rel splitdir/;use Text::Par...
EXTUTILS_HELPERS

$fatpacked{"ExtUtils/Helpers/Unix.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'EXTUTILS_HELPERS_UNIX';
  package ExtUtils::Helpers::Unix;$ExtUtils::Helpers::Unix::VERSION='0.03';use strict;use warnings FATAL=>'all';use Exporter 5.57 'import';our@EXPORT=qw/make_executable detildefy/;use Carp qw/croak/;use Config;my$layer=$] >= 5.008001 ? ":raw" : "";su...
EXTUTILS_HELPERS_UNIX

$fatpacked{"ExtUtils/Helpers/VMS.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'EXTUTILS_HELPERS_VMS';
  package ExtUtils::Helpers::VMS;$ExtUtils::Helpers::VMS::VERSION='0.03';use strict;use warnings FATAL=>'all';use Exporter 5.57 'import';our@EXPORT=qw/make_executable detildefy/;use File::Copy qw/copy/;sub make_executable {my$filename=shift;my$batchn...
EXTUTILS_HELPERS_VMS

$fatpacked{"ExtUtils/Helpers/Windows.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'EXTUTILS_HELPERS_WINDOWS';
  package ExtUtils::Helpers::Windows;$ExtUtils::Helpers::Windows::VERSION='0.03';use strict;use warnings FATAL=>'all';use Exporter 5.57 'import';our@EXPORT=qw/make_executable detildefy/;use Config;use Carp qw/carp croak/;use ExtUtils::PL2Bat 'pl2bat'...
EXTUTILS_HELPERS_WINDOWS

$fatpacked{"ExtUtils/InstallPaths.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'EXTUTILS_INSTALLPATHS';
  package ExtUtils::InstallPaths;$ExtUtils::InstallPaths::VERSION='0.03';use 5.006;use strict;use warnings;use File::Spec ();use Carp ();use ExtUtils::Config 0.002;my%complex_accessors=map {$_=>1}qw/prefix_relpaths install_sets/;my%hash_accessors=map...
EXTUTILS_INSTALLPATHS

$fatpacked{"List/MoreUtils.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'LIST_MOREUTILS';
  package List::MoreUtils;use 5.006;use strict;use warnings;BEGIN {our$VERSION='0.03';eval {require List::MoreUtils::XS}unless$ENV{LIST_MOREUTILS_PP};use List::MoreUtils::PP qw()}use Exporter::Tiny qw();my@junctions=qw(any all none notall);my@v0_22=q...
LIST_MOREUTILS

$fatpacked{"List/MoreUtils/PP.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'LIST_MOREUTILS_PP';
  package List::MoreUtils::PP;use 5.006;use strict;use warnings;our$VERSION='0.03';sub any (&@) {my$f=shift;for (@_){return 1 if$f->()}return 0}sub all (&@) {my$f=shift;for (@_){return 0 unless$f->()}return 1}sub none (&@) {my$f=shift;for (@_){return...
LIST_MOREUTILS_PP

$fatpacked{"List/MoreUtils/XS.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'LIST_MOREUTILS_XS';
  package List::MoreUtils::XS;use 5.006;use strict;use warnings;use vars qw{$VERSION @ISA};$VERSION='0.03';local$ENV{PERL_DL_NONLAZY}=0 if$ENV{PERL_DL_NONLAZY};use XSLoader ();XSLoader::load("List::MoreUtils","$VERSION");1;
LIST_MOREUTILS_XS

$fatpacked{"Module/Build.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD';
  package Module::Build;use if $] >= 5.019,'deprecate';use 5.006;use strict;use warnings;use File::Spec ();use File::Path ();use File::Basename ();use Perl::OSType ();use Module::Build::Base;our@ISA=qw(Module::Build::Base);our$VERSION='0.03';$VERSION...
MODULE_BUILD

$fatpacked{"Module/Build/Base.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_BASE';
  package Module::Build::Base;use 5.006;use strict;use warnings;our$VERSION='0.03';$VERSION=eval$VERSION;use Carp;use Cwd ();use File::Copy ();use File::Find ();use File::Path ();use File::Basename ();use File::Spec 0.82 ();use File::Compare ();use M...
  
  ERRORS/WARNINGS FOUND IN PREREQUISITES.  You may wish to install the versions
  of the modules indicated above before proceeding with this installation
  
  EOF
  * FATAL ERROR: Perl interpreter mismatch. Configuration was initially
    created with '$self->{properties}{perl}'
    but we are now using '$perl'.  You must
    run 'Build realclean' or 'make realclean' and re-configure.
  DIEFATAL
  * WARNING: Configuration was initially created with Module::Build
    version '$self->{properties}{mb_version}' but we are now using version '$mb_version'.
    If errors occur, you must re-run the Build.PL or Makefile.PL script.
  MISMATCH
  ERROR: This build seems to be unattended, but there is no default value
  for this question.  Aborting.
  EOF
  package $opts{class};
  use $pack;
  \@ISA = qw($pack);
  $opts{code}
  1;
  EOF
  No 'module_name' was provided and it could not be inferred
  from other properties.  This will prevent a packlist from
  being written for this file.  Please set either 'module_name'
  or 'dist_version_from' in Build.PL.
  END_WARN
  Bundling in inc/ is disabled because ExtUtils::Installed could not
  create a list of your installed modules.  Here is the error:
  $@
  EUI_ERROR
  Could not find a packlist for '$mod'.  If it's a core module, try
  force installing it from CPAN.
  NO_PACKLIST
  Module::Build was not found in configure_requires! Adding it now
  automatically as: configure_requires => { 'Module::Build' => $ver }
  EOM
  Warning: ExtUtils::CBuilder not installed or no compiler detected
  Proceeding with configuration, but compilation may fail during Build
  
  EOM
  $shebang
  
  use strict;
  use Cwd;
  use File::Basename;
  use File::Spec;
  
  sub magic_number_matches {
    return 0 unless -e '$q{magic_numfile}';
    my \$FH;
    open \$FH, '<','$q{magic_numfile}' or return 0;
    my \$filenum = <\$FH>;
    close \$FH;
    return \$filenum == $magic_number;
  }
  
  my \$progname;
  my \$orig_dir;

mimi.fatpack view on Meta::CPAN

MODULE_BUILD_PLATFORM_DEFAULT

$fatpacked{"Module/Build/Platform/MacOS.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_PLATFORM_MACOS';
  package Module::Build::Platform::MacOS;use strict;use warnings;our$VERSION='0.03';$VERSION=eval$VERSION;use Module::Build::Base;our@ISA=qw(Module::Build::Base);use ExtUtils::Install;sub have_forkpipe {0}sub new {my$class=shift;my$self=$class->SUPER...
MODULE_BUILD_PLATFORM_MACOS

$fatpacked{"Module/Build/Platform/Unix.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_PLATFORM_UNIX';
  package Module::Build::Platform::Unix;use strict;use warnings;our$VERSION='0.03';$VERSION=eval$VERSION;use Module::Build::Base;our@ISA=qw(Module::Build::Base);sub is_executable {my ($self,$file)=@_;return +(stat$file)[2]& 0100}sub _startperl {"#! "...
MODULE_BUILD_PLATFORM_UNIX

$fatpacked{"Module/Build/Platform/VMS.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_PLATFORM_VMS';
  package Module::Build::Platform::VMS;use strict;use warnings;our$VERSION='0.03';$VERSION=eval$VERSION;use Module::Build::Base;use Config;our@ISA=qw(Module::Build::Base);sub _set_defaults {my$self=shift;$self->SUPER::_set_defaults(@_);$self->{proper...
MODULE_BUILD_PLATFORM_VMS

$fatpacked{"Module/Build/Platform/VOS.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_PLATFORM_VOS';
  package Module::Build::Platform::VOS;use strict;use warnings;our$VERSION='0.03';$VERSION=eval$VERSION;use Module::Build::Base;our@ISA=qw(Module::Build::Base);1;
MODULE_BUILD_PLATFORM_VOS

$fatpacked{"Module/Build/Platform/Windows.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_PLATFORM_WINDOWS';
  package Module::Build::Platform::Windows;use strict;use warnings;our$VERSION='0.03';$VERSION=eval$VERSION;use Config;use File::Basename;use File::Spec;use Module::Build::Base;our@ISA=qw(Module::Build::Base);sub manpage_separator {return '.'}sub hav...
      \@rem = '--*-Perl-*--
      \@echo off
      if "%OS%" == "Windows_NT" goto WinNT
      perl $opts{otherargs}
      goto endofperl
      :WinNT
      perl $opts{ntargs}
      if NOT "%COMSPEC%" == "%SystemRoot%\\system32\\cmd.exe" goto endofperl
      if %errorlevel% == 9009 echo You do not have Perl in your PATH.
      if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
      goto endofperl
      \@rem ';
  EOT
MODULE_BUILD_PLATFORM_WINDOWS

$fatpacked{"Module/Build/Platform/aix.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_PLATFORM_AIX';
  package Module::Build::Platform::aix;use strict;use warnings;our$VERSION='0.03';$VERSION=eval$VERSION;use Module::Build::Platform::Unix;our@ISA=qw(Module::Build::Platform::Unix);1;
MODULE_BUILD_PLATFORM_AIX

$fatpacked{"Module/Build/Platform/cygwin.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_PLATFORM_CYGWIN';
  package Module::Build::Platform::cygwin;use strict;use warnings;our$VERSION='0.03';$VERSION=eval$VERSION;use Module::Build::Platform::Unix;our@ISA=qw(Module::Build::Platform::Unix);sub manpage_separator {'.'}sub _maybe_command {my ($self,$file)=@_;...
MODULE_BUILD_PLATFORM_CYGWIN

$fatpacked{"Module/Build/Platform/darwin.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_PLATFORM_DARWIN';
  package Module::Build::Platform::darwin;use strict;use warnings;our$VERSION='0.03';$VERSION=eval$VERSION;use Module::Build::Platform::Unix;our@ISA=qw(Module::Build::Platform::Unix);1;
MODULE_BUILD_PLATFORM_DARWIN

$fatpacked{"Module/Build/Platform/os2.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_PLATFORM_OS2';
  package Module::Build::Platform::os2;use strict;use warnings;our$VERSION='0.03';$VERSION=eval$VERSION;use Module::Build::Platform::Unix;our@ISA=qw(Module::Build::Platform::Unix);sub manpage_separator {'.'}sub have_forkpipe {0}sub _maybe_command {my...
MODULE_BUILD_PLATFORM_OS2

$fatpacked{"Module/Build/PodParser.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_PODPARSER';
  package Module::Build::PodParser;use strict;use warnings;our$VERSION='0.03';$VERSION=eval$VERSION;sub new {my$package=shift;my$self;$self=bless {have_pod_parser=>0,@_},$package;unless ($self->{fh}){die "No 'file' or 'fh' parameter given" unless$sel...
MODULE_BUILD_PODPARSER

$fatpacked{"Module/Build/Tiny.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_TINY';
  package Module::Build::Tiny;$Module::Build::Tiny::VERSION='0.03';use strict;use warnings;use Exporter 5.57 'import';our@EXPORT=qw/Build Build_PL/;use CPAN::Meta;use ExtUtils::Config 0.003;use ExtUtils::Helpers 0.020 qw/make_executable split_like_sh...
MODULE_BUILD_TINY

$fatpacked{"Test/Fatal.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'TEST_FATAL';
  use strict;use warnings;package Test::Fatal;$Test::Fatal::VERSION='0.03';use Carp ();use Try::Tiny 0.07;use Exporter 5.57 'import';our@EXPORT=qw(exception);our@EXPORT_OK=qw(exception success dies_ok lives_ok);our ($REAL_TBL,$REAL_CALCULATED_TBL)=(1...
TEST_FATAL

$fatpacked{"Test/TempDir/Tiny.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'TEST_TEMPDIR_TINY';
  use 5.006002;use strict;use warnings;package Test::TempDir::Tiny;our$VERSION='0.03';use Exporter 5.57 qw/import/;our@EXPORT=qw/tempdir in_tempdir/;use Carp qw/confess/;use Cwd qw/abs_path/;use Errno qw/EEXIST ENOENT/;{no warnings 'numeric';use File...
TEST_TEMPDIR_TINY

$fatpacked{"Try/Tiny.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'TRY_TINY';
  package Try::Tiny;use 5.006;our$VERSION='0.03';use strict;use warnings;use Exporter 5.57 'import';our@EXPORT=our@EXPORT_OK=qw(try catch finally);use Carp;$Carp::Internal{+__PACKAGE__}++;BEGIN {my$su=$INC{'Sub/Util.pm'}&& defined&Sub::Util::set_subn...
TRY_TINY

$fatpacked{"Win32/DBIODBC.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'WIN32_DBIODBC';
  package Win32::ODBC;use strict;use DBI;$INC{'Win32/ODBC.pm'}=$INC{'Win32/DBIODBC.pm'}|| 1;sub new {shift;my$connect_line=shift;my$temp_connect_line;$connect_line=~/DSN=\w+/;$temp_connect_line="$&;";if ($connect_line=~/UID=\w?/){$temp_connect_line.=...
WIN32_DBIODBC

$fatpacked{"boolean.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'BOOLEAN';
  use strict;use warnings;package boolean;our$VERSION='0.03';my ($true,$false);use overload '""'=>sub {${$_[0]}},'!'=>sub {${$_[0]}? $false : $true},fallback=>1;use base 'Exporter';@boolean::EXPORT=qw(true false boolean);@boolean::EXPORT_OK=qw(isTrue...
BOOLEAN

s/^  //mg for values %fatpacked;

my $class = 'FatPacked::'.(0+\%fatpacked);
no strict 'refs';
*{"${class}::files"} = sub { keys %{$_[0]} };

if ($] < 5.008) {
  *{"${class}::INC"} = sub {
    if (my $fat = $_[0]{$_[1]}) {
      my $pos = 0;
      my $last = length $fat;
      return (sub {
        return 0 if $pos == $last;
        my $next = (1 + index $fat, "\n", $pos) || $last;
        $_ .= substr $fat, $pos, $next - $pos;
        $pos = $next;
        return 1;
      });
    }
  };
}

else {
  *{"${class}::INC"} = sub {
    if (my $fat = $_[0]{$_[1]}) {
      open my $fh, '<', \$fat
        or die "FatPacker error loading $_[1] (could be a perl installation issue?)";
      return $fh;
    }
    return;
  };
}

unshift @INC, bless \%fatpacked, $class;
  } # END OF FATPACK CODE


use strict;
use warnings;

use Carp qw(croak);
use Docopt;

( run in 2.103 seconds using v1.01-cache-2.11-cpan-97f6503c9c8 )