Result:
found more than 780 distributions - search limited to the first 2001 files matching your query
( run in 4.738 )
App-makebeamerinfo
view release on metacpan or search on metacpan
lib/App/makebeamerinfo/GUI.pm view on Meta::CPAN
our @ISA = qw/App::makebeamerinfo/;
sub new {
my $class = shift;
my $self = $class->SUPER::new(@_);
#rebless
bless $self, $class;
$self->{gui} = $self->create_window;
App-metasyn
view release on metacpan or search on metacpan
script/_metasyn view on Meta::CPAN
# $opts{-ref} //= ['replace_with_ref'];
# $opts{-circular} //= ['clone'];
# $opts{-obj} //= ['unbless'];
#
# $opts{'!recurse_obj'} //= 1;
# $class->SUPER::new(%opts);
#}
#
#sub get_cleanser {
# my $class = shift;
# local $creating_singleton = 1;
script/_metasyn view on Meta::CPAN
# "You probably want to call get_cleanser() yet to get a singleton instead?";
# }
#
# $opts{"JSON::PP::Boolean"} //= ['deref_scalar_one_or_zero'];
#
# $class->SUPER::new(%opts);
#}
#
#sub get_cleanser {
# my $class = shift;
# local $creating_singleton = 1;
script/_metasyn view on Meta::CPAN
# ($key, $l);
#}
#
#sub merge_ARRAY_ARRAY {
# my ($self, $key, $l, $r) = @_;
# $self->SUPER::merge_ARRAY_ARRAY($key, $l, $r, 'KEEP');
#};
#
#sub merge_ARRAY_HASH {
# my ($self, $key, $l, $r) = @_;
# ($key, $l);
script/_metasyn view on Meta::CPAN
# ($key, $l);
#}
#
#sub merge_HASH_HASH {
# my ($self, $key, $l, $r) = @_;
# $self->SUPER::merge_HASH_HASH($key, $l, $r, 'KEEP');
#};
#
#1;
## ABSTRACT: Handler for Data::ModeMerge KEEP merge mode
#
App-mimi
view release on metacpan or search on metacpan
mimi.fatpack view on Meta::CPAN
$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
mimi.fatpack view on Meta::CPAN
$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)=...
package ~class~;
sub ~method~ {
my $h = shift;
local $@;
my @result = wantarray
? eval { $h->{'proxy_~type~h'}->~call~ }
: eval { scalar $h->{'proxy_~type~h'}->~call~ };
return DBD::Proxy::proxy_set_err($h, $@) if $@;
return wantarray ? @result : $result[0];
}
};$method_code =~ s/\~(\w+)\~/$expand{$1}/eg;local$SIG{__DIE__}='DEFAULT';my$err=do {local $@;eval$method_code.2;$@};die$err if$err;goto &$AUTOLOAD}sub DESTROY {my$dbh=shift;local $@ if $@;$dbh->disconnect if$dbh->SUPER::FETCH('Active')}sub con...
DBD_PROXY
$fatpacked{"DBD/Sponge.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_SPONGE';
use strict;{package DBD::Sponge;require DBI;require Carp;our@EXPORT=qw();our$VERSION="0.03";our$drh=undef;my$methods_already_installed;sub driver{return$drh if$drh;DBD::Sponge::db->install_method("sponge_test_installed_method")unless$methods_alread...
DBD_SPONGE
$fatpacked{"DBI.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI';
package DBI;require 5.008_001;BEGIN {our$XS_VERSION=our$VERSION="0.03";$VERSION=eval$VERSION}use Carp();use DynaLoader ();use Exporter ();BEGIN {@ISA=qw(Exporter DynaLoader);@EXPORT=();@EXPORT_OK=qw(%DBI %DBI_methods hash);%EXPORT_TAGS=(sql_types=>...
DBI::_firesafe; # just in case
mimi.fatpack view on Meta::CPAN
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
mimi.fatpack view on Meta::CPAN
END
DBI_PROFILEDATA
$fatpacked{"DBI/ProfileDumper.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_PROFILEDUMPER';
package DBI::ProfileDumper;use strict;use DBI::Profile;our@ISA=("DBI::Profile");our$VERSION="0.03";use Carp qw(croak);use Fcntl qw(:flock);use Symbol;my$HAS_FLOCK=(defined$ENV{DBI_PROFILE_FLOCK})? $ENV{DBI_PROFILE_FLOCK}: do {local $@;eval {flock S...
DBI_PROFILEDUMPER
$fatpacked{"DBI/ProfileDumper/Apache.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_PROFILEDUMPER_APACHE';
package DBI::ProfileDumper::Apache;use strict;our$VERSION="0.03";our@ISA=qw(DBI::ProfileDumper);use DBI::ProfileDumper;use File::Spec;my$initial_pid=$$;use constant MP2=>($ENV{MOD_PERL_API_VERSION}and $ENV{MOD_PERL_API_VERSION}==2)? 1 : 0;my$server...
DBI_PROFILEDUMPER_APACHE
$fatpacked{"DBI/ProfileSubs.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_PROFILESUBS';
package DBI::ProfileSubs;our$VERSION="0.03";use strict;use warnings;sub norm_std_n3 {local $_=$_;s/\b\d+\b/<N>/g;s/\b0x[0-9A-Fa-f]+\b/<N>/g;s/'.*?'/'<S>'/g;s/".*?"/"<S>"/g;s/([a-z_]+)(\d{3,})\b/${1}<N>/ig;s!((\s*<[NS]>\s*,\s*){100,})!sprintf("$2,<r...
DBI_PROFILESUBS
$fatpacked{"DBI/ProxyServer.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_PROXYSERVER';
require 5.004;use strict;use RPC::PlServer 0.2001;require DBI;require Config;package DBI::ProxyServer;use vars qw($VERSION @ISA);$VERSION="0.03";@ISA=qw(RPC::PlServer DBI);my%DEFAULT_SERVER_OPTIONS;{my$o=\%DEFAULT_SERVER_OPTIONS;$o->{'chroot'}=unde...
DBI_PROXYSERVER
$fatpacked{"DBI/PurePerl.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_PUREPERL';
package DBI;use strict;use Carp;require Symbol;require utf8;*utf8::is_utf8=sub {require bytes;return unless defined $_[0];return!(length($_[0])==bytes::length($_[0]))}unless defined&utf8::is_utf8;$DBI::PurePerl=$ENV{DBI_PUREPERL}|| 1;$DBI::PurePerl...
delete $h->{CachedKids};
mimi.fatpack view on Meta::CPAN
$fatpacked{"Module/Build/Platform/Default.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_PLATFORM_DEFAULT';
package Module::Build::Platform::Default;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_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
mimi.fatpack view on Meta::CPAN
$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
App-nrun
view release on metacpan or search on metacpan
lib/NRun/Workers/WorkerGeneric.pm view on Meta::CPAN
sub init {
my $_self = shift;
my $_cfg = shift;
$_self->SUPER::init($_cfg);
$_self->{generic_rcopy} = $_cfg->{generic_rcopy};
$_self->{generic_copy} = $_cfg->{generic_copy};
$_self->{generic_exec} = $_cfg->{generic_exec};
$_self->{generic_delete} = $_cfg->{generic_delete};
App-oo_modulino_zsh_completion_helper
view release on metacpan or search on metacpan
misc/cpan/MyBuilder.pm view on Meta::CPAN
use File::Basename;
use File::Spec;
sub new {
_add_zsh_fpath(
shift->SUPER::new(@_)
);
}
sub _add_zsh_fpath {
my ($self) = @_;
App-orgadb
view release on metacpan or search on metacpan
lib/App/orgadb/Select/Shell.pm view on Meta::CPAN
sub new {
my ($class, %args) = @_;
$class->_install_cmds;
my $self = $class->SUPER::new();
$self->{program_name} = $args{program_name} // 'orgadb-sel';
$self->load_history;
# TODO: override some settings from env, if available
App-pepper
view release on metacpan or search on metacpan
lib/App/pepper/EPPClient.pm view on Meta::CPAN
use strict;
sub new {
my ($package, %params) = @_;
my $self = $package->SUPER::new(%params);
$self->{'pretty_parser'} = XML::Parser->new(
'Style' => 'Stream',
'Pkg' => 'App::pepper::Highlighter',
);
lib/App/pepper/EPPClient.pm view on Meta::CPAN
return $self;
}
sub get_frame {
my $self = shift;
my $response = $self->SUPER::get_frame;
unless ($self->{noout}) {
$self->{'pretty_parser'}->{'lineprefix'} = 'S: ';
$self->{'pretty_parser'}->parse($response->toString) if (!$self->{'quiet'} && $response && ($response->isa('XML::LibXML::Document') || $response->isa('Net::EPP::Frame::Response')));
}
lib/App/pepper/EPPClient.pm view on Meta::CPAN
unless ($self->{noout}) {
$self->{'pretty_parser'}->{'lineprefix'} = 'C: ';
$self->{'pretty_parser'}->parse($frame->toString) if (!$self->{'quiet'} && ($frame->isa('XML::LibXML::Document') || $frame->isa('Net::EPP::Frame')));
}
return $self->SUPER::send_frame($frame, $wfcheck);
}
1;
App-perlall
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
INSTRUCTION
}
package MY;
sub test {
my $s = shift->SUPER::test(@_);
# root can not run the tests on unix platforms
$s =~ s/^(test_dynamic :: pure_all\n\t)(.+)$/$1if test `id -u` -gt 0; then $2; else echo skipped for root; true; fi/m
if $^O =~ /^linux|freebsd|darwin|solaris|openbsd$/;
$s;
}
App-perlfind
view release on metacpan or search on metacpan
lib/App/perlfind.pm view on Meta::CPAN
# pass through; maybe someone higher up knows what to do
# with it
push @new_pages, $page;
}
}
$self->SUPER::grand_search_init(\@new_pages, @found);
}
sub opt_V {
my $self = shift;
print "perlfind v$VERSION, ";
$self->SUPER::opt_V(@_);
}
1;
__END__
App-perlminlint
view release on metacpan or search on metacpan
lib/App/perlminlint/Plugin/LintT.pm view on Meta::CPAN
}
sub gather_opts {
(my MY $plugin, my $fn) = @_;
my @opts = $plugin->SUPER::gather_opts($fn);
#
# Add -Ilib if $fn looks like t/.../*.t
#
if (my ($basedir) = $fn =~ m{^(.*/|)t/}) {
App-perlrdf-Command-Query
view release on metacpan or search on metacpan
lib/App/perlrdf/Command/RDQL.pm view on Meta::CPAN
sub opt_spec
{
map {
$_->[0] =~ s/sparql/rdql/ if @$_;
$_;
} shift->SUPER::opt_spec
}
sub validate_args
{
my ($self, $opt, $arg) = @_;
$self->usage_error("Must not provide both 'rdql_file' and 'execute' options.")
if exists $opt->{rdql_file} && exists $opt->{execute};
$self->SUPER::validate_args($opt, $arg);
}
sub _sparql
{
require RDF::Query;
my ($self, $opt, $arg) = @_;
my $rdql = $self->SUPER::_sparql($opt, $arg);
my $query = RDF::Query::->new($rdql, { lang => 'rdql' })
or die RDF::Query->error;
return $query->as_sparql;
}
App-perluse
view release on metacpan or search on metacpan
inc/Module/Build/My.pm view on Meta::CPAN
if ($args{from} =~ /\bscript\/.*\.sh$/ and $args{to_dir}) {
my (undef, undef, $file) = File::Spec->splitpath($args{from});
$file =~ s/\.sh$//;
$args{to} = File::Spec->catfile($args{to_dir}, $file);
delete $args{to_dir};
return $self->SUPER::copy_if_modified(%args);
};
return $self->SUPER::copy_if_modified(%args);
};
$self->SUPER::process_script_files;
};
1;
App-ppgrep
view release on metacpan or search on metacpan
script/_ppgrep view on Meta::CPAN
# $opts{-ref} //= ['replace_with_ref'];
# $opts{-circular} //= ['clone'];
# $opts{-obj} //= ['unbless'];
#
# $opts{'!recurse_obj'} //= 1;
# $class->SUPER::new(%opts);
#}
#
#sub get_cleanser {
# my $class = shift;
# local $creating_singleton = 1;
script/_ppgrep view on Meta::CPAN
# "You probably want to call get_cleanser() yet to get a singleton instead?";
# }
#
# $opts{"JSON::PP::Boolean"} //= ['deref_scalar_one_or_zero'];
#
# $class->SUPER::new(%opts);
#}
#
#sub get_cleanser {
# my $class = shift;
# local $creating_singleton = 1;
script/_ppgrep view on Meta::CPAN
# ($key, $l);
#}
#
#sub merge_ARRAY_ARRAY {
# my ($self, $key, $l, $r) = @_;
# $self->SUPER::merge_ARRAY_ARRAY($key, $l, $r, 'KEEP');
#};
#
#sub merge_ARRAY_HASH {
# my ($self, $key, $l, $r) = @_;
# ($key, $l);
script/_ppgrep view on Meta::CPAN
# ($key, $l);
#}
#
#sub merge_HASH_HASH {
# my ($self, $key, $l, $r) = @_;
# $self->SUPER::merge_HASH_HASH($key, $l, $r, 'KEEP');
#};
#
#1;
## ABSTRACT: Handler for Data::ModeMerge KEEP merge mode
#
App-reposdb
view release on metacpan or search on metacpan
script/_reposdb-inline view on Meta::CPAN
# $opts{-ref} //= ['replace_with_ref'];
# $opts{-circular} //= ['clone'];
# $opts{-obj} //= ['unbless'];
#
# $opts{'!recurse_obj'} //= 1;
# $class->SUPER::new(%opts);
#}
#
#sub get_cleanser {
# my $class = shift;
# local $creating_singleton = 1;
script/_reposdb-inline view on Meta::CPAN
# "You probably want to call get_cleanser() yet to get a singleton instead?";
# }
#
# $opts{"JSON::PP::Boolean"} //= ['deref_scalar_one_or_zero'];
#
# $class->SUPER::new(%opts);
#}
#
#sub get_cleanser {
# my $class = shift;
# local $creating_singleton = 1;
script/_reposdb-inline view on Meta::CPAN
# ($key, $l);
#}
#
#sub merge_ARRAY_ARRAY {
# my ($self, $key, $l, $r) = @_;
# $self->SUPER::merge_ARRAY_ARRAY($key, $l, $r, 'KEEP');
#};
#
#sub merge_ARRAY_HASH {
# my ($self, $key, $l, $r) = @_;
# ($key, $l);
script/_reposdb-inline view on Meta::CPAN
# ($key, $l);
#}
#
#sub merge_HASH_HASH {
# my ($self, $key, $l, $r) = @_;
# $self->SUPER::merge_HASH_HASH($key, $l, $r, 'KEEP');
#};
#
#1;
## ABSTRACT: Handler for Data::ModeMerge KEEP merge mode
#
App-riap
view release on metacpan or search on metacpan
lib/App/riap.pm view on Meta::CPAN
my $old_go_opts = Getopt::Long::Configure();
Getopt::Long::GetOptions(@gospec);
Getopt::Long::Configure($old_go_opts);
$class->_install_cmds;
my $self = $class->SUPER::new();
$self->load_history;
# load from file
$self->load_settings;
App-s2p
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
sub postamble {
my $self = shift;
my ($s2p, $psed) = map { File::Spec->catfile('script', $_) } qw/s2p psed/;
return $self->SUPER::postamble . <<"END";
$psed: $s2p
\$(CP) $s2p $psed
END
}
App-sdif
view release on metacpan or search on metacpan
lib/App/cdif/Command.pm view on Meta::CPAN
read_error => 0,
);
sub new {
my $class = shift;
my $obj = $class->SUPER::new;
$obj->{OPTION} = { %default_option };
$obj->command(@_) if @_;
$obj;
}
App-sdview
view release on metacpan or search on metacpan
lib/App/sdview/Parser/Pod.pm view on Meta::CPAN
method parse_file ( $fh )
{
push @_indentstack, 0;
push @_parastack, [];
$self->SUPER::parse_file( $fh );
return $_parastack[0]->@*;
}
method parse_string ( $str )
{
push @_indentstack, 0;
push @_parastack, [];
$self->SUPER::parse_string_document ( $str );
return $_parastack[0]->@*;
}
my %PARA_TYPES = (
Para => "App::sdview::Para::Plain",
lib/App/sdview/Parser/Pod.pm view on Meta::CPAN
$body = String::Tagged->new;
# Protect a leading equals sign
$str =~ s/^=/E<61>/;
$self->SUPER::parse_string_document( "=pod\n\n$str" );
return $body;
}
method handle_text ( $text )
App-soapcli
view release on metacpan or search on metacpan
inc/Module/Build/My.pm view on Meta::CPAN
if ($args{from} =~ /\bscript\/.*\.pl$/ and $args{to_dir}) {
my (undef, undef, $file) = File::Spec->splitpath($args{from});
$file =~ s/\.pl$//;
$args{to} = File::Spec->catfile($args{to_dir}, $file);
delete $args{to_dir};
return $self->SUPER::copy_if_modified(%args);
};
return $self->SUPER::copy_if_modified(%args);
};
$self->SUPER::process_script_files;
};
1;
App-termpub
view release on metacpan or search on metacpan
lib/App/termpub.pm view on Meta::CPAN
$self->key_bindings->{'<'} = 'history_back';
$self->key_bindings->{'>'} = 'history_forward';
$self->key_bindings->{'|'} = 'set_width';
$self->key_bindings->{Curses::KEY_RESIZE} = 'handle_resize';
$self->SUPER::run;
}
sub quit_without_saving {
shift->SUPER::quit;
}
sub quit {
my $self = shift;
$self->epub->save_metadata(
{ version => 2, position => $self->get_position } );
$self->SUPER::quit;
}
my %keycodes = (
Curses::KEY_DOWN => '<Down>',
Curses::KEY_UP => '<Up>',
lib/App/termpub.pm view on Meta::CPAN
);
sub goto_position {
my ( $self, $position ) = @_;
$self->set_chapter( $position->{chapter} );
$self->SUPER::goto_position($position);
}
sub get_position {
my $self = shift;
my $position = $self->SUPER::get_position;
$position->{chapter} = $self->chapter;
return $position;
}
sub set_width {
lib/App/termpub.pm view on Meta::CPAN
return;
}
sub handle_resize {
my $self = shift;
$self->SUPER::handle_resize;
$self->render;
$self->update_screen;
}
sub jump_to_toc {
lib/App/termpub.pm view on Meta::CPAN
return;
}
sub next_page {
my $self = shift;
$self->next_chapter if !$self->SUPER::next_page;
}
sub prev_page {
my $self = shift;
$self->prev_chapter if !$self->SUPER::prev_page;
}
sub next_chapter {
my $self = shift;
while (1) {
lib/App/termpub.pm view on Meta::CPAN
}
sub render {
my $self = shift;
my $content = $self->chapters->[ $self->chapter ]->content;
return $self->SUPER::render( decode( 'UTF-8', $content ) );
}
1;
App-wordlist
view release on metacpan or search on metacpan
script/wordlist view on Meta::CPAN
#}
#
#sub _init_read {
# my $self = shift;
#
# $self->SUPER::_init_read;
# $self->{_res} = {};
# $self->{_merge} = undef;
# $self->{_num_seen_section_lines} = 0;
# $self->{_cur_section} = $self->{default_section};
# $self->{_arrayified} = {};
App-zipdetails
view release on metacpan or search on metacpan
bin/zipdetails view on Meta::CPAN
sub new
{
my $class = shift ;
my $self = $class->SUPER::new();
my %fields = (
# fields from the header
'centralHeaderOffset' => 0,
bin/zipdetails view on Meta::CPAN
sub new
{
my $class = shift ;
my $self = $class->SUPER::new();
my %fields = (
'inCentralDir' => 1,
) ;
bin/zipdetails view on Meta::CPAN
# check for existing entry
return $CentralDirectory->{byCentralOffset}{$offset}
if defined $offset && defined $CentralDirectory->{byCentralOffset}{$offset} ;
my $self = $class->SUPER::new();
my %fields = (
'diskNumber' => 0,
'comment' => "",
'ldEntry' => undef,
bin/zipdetails view on Meta::CPAN
sub new
{
my $class = shift ;
my $self = $class->SUPER::new();
my %fields = (
'streamedMatch' => 0,
'readDataDescriptor' => 0,
'cdEntryIndex' => {},
AppConfig-Std
view release on metacpan or search on metacpan
lib/AppConfig/Std.pm view on Meta::CPAN
#-------------------------------------------------------------------
# Use AppConfig's args() method to parse the command-line.
#-------------------------------------------------------------------
$result = $self->SUPER::args($ref);
#-------------------------------------------------------------------
# If the command-line was successfully parsed (returned TRUE),
# then check for the standard command-line switches.
#-------------------------------------------------------------------
lib/AppConfig/Std.pm view on Meta::CPAN
#-------------------------------------------------------------------
# Use AppConfig's getopt() method to parse the command-line.
#-------------------------------------------------------------------
$result = $self->SUPER::getopt($ref);
#-------------------------------------------------------------------
# If the command-line was successfully parsed (returned TRUE),
# then check for the standard command-line switches.
#-------------------------------------------------------------------
Appium
view release on metacpan or search on metacpan
lib/Appium/Commands.pm view on Meta::CPAN
has 'get_cmds' => (
is => 'lazy',
builder => sub {
my ($self) = @_;
my $commands = $self->SUPER::get_cmds;
my $appium_commands = {
contexts => {
method => 'GET',
url => 'session/:sessionId/contexts',
AppleII-LibA2
view release on metacpan or search on metacpan
inc/A2_Build.pm view on Meta::CPAN
sub find_perl_interpreter
{
my $self = shift @_;
my $perl = $self->SUPER::find_perl_interpreter(@_);
# Convert /usr/bin/perl5.8.6 to /usr/bin/perl:
# (if the latter is a symlink to the former)
my $base = $perl;
if ($base =~ s/[\d.]+$// and -l $base and abs_path($base) eq $perl) {
Apporo
view release on metacpan or search on metacpan
inc/Module/Install/XSUtil.pm view on Meta::CPAN
# XXX: We must append to PM inside ExtUtils::MakeMaker->new().
sub init_PM {
my $self = shift;
$self->SUPER::init_PM(@_);
while(my($k, $v) = each %ToInstall){
$self->{PM}{$k} = $v;
}
return;
inc/Module/Install/XSUtil.pm view on Meta::CPAN
# append object file names to CCCMD
sub const_cccmd {
my $self = shift;
my $cccmd = $self->SUPER::const_cccmd(@_);
return q{} unless $cccmd;
if (Module::Install::XSUtil::_is_msvc()){
$cccmd .= ' -Fo$@';
}
inc/Module/Install/XSUtil.pm view on Meta::CPAN
return $cccmd
}
sub xs_c {
my($self) = @_;
my $mm = $self->SUPER::xs_c();
$mm =~ s/ \.c /.cpp/xmsg if $UseCplusplus;
return $mm;
}
sub xs_o {
my($self) = @_;
my $mm = $self->SUPER::xs_o();
$mm =~ s/ \.c /.cpp/xmsg if $UseCplusplus;
return $mm;
}
1;
ArangoDB
view release on metacpan or search on metacpan
lib/ArangoDB/Document.pm view on Meta::CPAN
use ArangoDB::Constants qw(:api);
use ArangoDB::Edge;
sub new {
my $class = shift;
my $self = $class->SUPER::new(@_);
$self->{_api_path} = API_DOCUMENT . '/' . $self;
return $self;
}
sub any_edges {
ArangoDB2
view release on metacpan or search on metacpan
lib/ArangoDB2/Cursor.pm view on Meta::CPAN
# create new instance
sub new
{
my($class, $arango, $database, $data) = @_;
my $self = $class->SUPER::new($arango, $database);
$self->{data} = $data;
return $self;
}
Arch
view release on metacpan or search on metacpan
perllib/Arch/Library.pm view on Meta::CPAN
use Arch::TempFiles qw(temp_dir);
sub _default_fields ($) {
my $this = shift;
return (
$this->SUPER::_default_fields,
fallback_dir => undef,
ready_to_add => 0,
path => undef,
working_revision => undef,
revision_trees => {},
Archive-Libarchive-Any
view release on metacpan or search on metacpan
inc/My/ModuleBuild.pm view on Meta::CPAN
{
$args{requires}->{'Archive::Libarchive::XS'} = 0;
}
}
$class->SUPER::new(%args);
}
1;
( run in 4.738 seconds using v1.01-cache-2.11-cpan-26ccb49234f )