view release on metacpan or search on metacpan
lib/App/VW/Install.pm view on Meta::CPAN
use File::ShareDir 'module_dir';
sub options {
my ($class) = @_;
(
$class->SUPER::options,
);
}
our %systems;
$systems{debian} = {};
view release on metacpan or search on metacpan
lib/App/Web/VPKBuilder.pm view on Meta::CPAN
use Plack::Request;
use Sort::ByExample qw/sbe/;
use YAML qw/LoadFile/;
sub new {
my $self = shift->SUPER::new(@_);
$self->{cfg} = {};
for (sort <cfg/*>) {
my $cfg = LoadFile $_;
$self->{cfg} = merge $self->{cfg}, $cfg
}
view release on metacpan or search on metacpan
lib/App/Widget/JSApp.pm view on Meta::CPAN
# it does multiple inheritance.
sub _init {
&App::sub_entry if ($App::trace);
my ($self) = @_;
$self->{onload_handler} = "context.onLoad();" if (!$self->{onload_handler});
$self->SUPER::_init();
&App::sub_exit() if ($App::trace);
}
sub html {
&App::sub_entry if ($App::trace);
view release on metacpan or search on metacpan
lib/App/Widget/AppFrame.pm view on Meta::CPAN
#$self->{noframe} = $selector_widget->get_selected("noframe");
return 1;
}
else {
return $self->SUPER::handle_event($wname, $event, @args);
}
}
######################################################################
view release on metacpan or search on metacpan
lib/App/Wx/PodEditor/Frame.pm view on Meta::CPAN
our $VERSION = 0.01;
sub new {
my( $class ) = shift;
my( $this ) = $class->SUPER::new( @_ );
$this->CreateMyMenuBar();
$this->CreateStatusBar(1);
$this->SetToolBar( $this->_toolbar );
view release on metacpan or search on metacpan
lib/App/Ylastic/CostAgent.pm view on Meta::CPAN
# * upload -- whether to upload data to Ylastic (default is false)
#--------------------------------------------------------------------------#
sub new {
my $class = shift;
my $self = $class->SUPER::new( @_ );
croak __PACKAGE__ . " requires a valid 'config_file' argument\n"
unless $self->config_file && -r $self->config_file;
$self->{logger} ||= Log::Dispatchouli->new({ident => __PACKAGE__, to_self => 1});
view release on metacpan or search on metacpan
lib/App/Zapzi/Transformers/POD.pm view on Meta::CPAN
"--infile=$infile", "--outfile=$outfile");
croak('Could not transform POD') unless -s $outfile;
my $html = path($outfile)->slurp;
return $self->SUPER::transform($html);
}
# _extract_title and _extract_text inherited from parent
1;
view release on metacpan or search on metacpan
script/_chinese-zodiac-of 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/_chinese-zodiac-of 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/_chinese-zodiac-of 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/_chinese-zodiac-of 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
#
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
sub postamble {
my $self = shift;
my $a2p = $self->catfile('$(INST_BIN)', 'a2p$(EXE_EXT)');
my @ret = (
$self->SUPER::postamble,
'OBJ = hash$(OBJ_EXT) str$(OBJ_EXT) util$(OBJ_EXT) walk$(OBJ_EXT) a2p$(OBJ_EXT)',
'',
"$a2p : \$(OBJ)"
);
if ($^O eq 'MSWin32' && $Config{cc} =~ /^cl/) {
view release on metacpan or search on metacpan
#my $HAS_FLOCK = $Config{d_flock} || $Config{d_fcntl_can_lock} || $Config{d_lockf};
#
#my $trace_level = Log::Any::Adapter::Util::numeric_level('trace');
#sub new {
# my ( $class, $file, @args ) = @_;
# return $class->SUPER::new( file => $file, log_level => $trace_level, @args );
#}
#
#sub init {
# my $self = shift;
# if ( exists $self->{log_level} ) {
# my $class = shift;
# if ( defined $Log::Any::OverrideDefaultAdapterClass
# && $Log::Any::OverrideDefaultAdapterClass eq __PACKAGE__ )
# {
# my $category = pop @_;
# return $class->SUPER::new( category => $category );
# }
# else {
# return $class->SUPER::new(@_);
# }
#}
#
#foreach my $method ( Log::Any::Adapter::Util::detection_methods() ) {
# no strict 'refs';
view release on metacpan or search on metacpan
t/App/cdif/Command.pm view on Meta::CPAN
}
}
sub new {
my $class = shift;
my $obj = $class->SUPER::new;
$obj->command(@_) if @_;
$obj;
}
sub command {
view release on metacpan or search on metacpan
t/Command.pm view on Meta::CPAN
$ENV{PERL5LIB} = join ':', @INC;
sub new {
my $class = shift;
my $obj = $class->SUPER::new();
$obj->command([ $^X, qw(-Ilib), @_ ]);
$obj;
}
sub exec {
view release on metacpan or search on metacpan
lib/App/cdnget/Downloader.pm view on Meta::CPAN
}
sub DESTROY
{
my $self = shift;
$self->SUPER::DESTROY;
}
sub throw
{
my $self = shift;
view release on metacpan or search on metacpan
inc/Pod/Markdown.pm view on Meta::CPAN
# ABSTRACT: Convert POD to Markdown
use parent qw(Pod::Parser);
sub initialize {
my $self = shift;
$self->SUPER::initialize(@_);
$self->_private;
$self;
}
sub _private {
view release on metacpan or search on metacpan
die("Could not determine home directory!");
sub new
{
my ($class, @args) = @_;
my $self = $class->SUPER::new(@args);
$self->{_metabase_api} = 'https://metabase.cpantesters.org/api/v1/';
$self->{_metabase_file} = "File::Spec"->catfile(
$HOME,
qw< .cpantesters metabase_id.json >,
# don't get sent based on incorrect info.
sub install_module
{
my ($self, @args) = @_;
delete $self->{_current_dist};
$self->SUPER::install_module(@args);
}
sub resolve_name
{
my ($self, @args) = @_;
my $dist = $self->SUPER::resolve_name(@args);
$self->{_current_dist} = $dist;
return $dist;
}
sub cpants_report
view release on metacpan or search on metacpan
lib/App/cpm/Resolver/Fixed.pm view on Meta::CPAN
my %package;
for my $argv (@_) {
my ($package, $fixed_version) = split /\@/, $argv;
$package{$package} = $fixed_version;
}
my $self = $class->SUPER::new;
$self->{_packages} = \%package;
$self;
}
sub resolve {
lib/App/cpm/Resolver/Fixed.pm view on Meta::CPAN
if ($version_range) {
$version_range .= ", == $fixed_version";
} else {
$version_range = "== $fixed_version";
}
$self->SUPER::resolve({ %$argv, version_range => $version_range });
}
1;
view release on metacpan or search on metacpan
tlib/xmlstuff.pl view on Meta::CPAN
}
sub new {
my ($class, $path, %opts) = @_;
my $self = bless {%opts}, $class;
my $zip = $self->{zip} = $self->SUPER::new(); # Archive::Zip->new();
note "> Opening ",qsh($path)," at ",(caller(0))[2] if $self->{debug};
confess "Error reading $path ($!)"
unless $zip->read($path) == AZ_OK;
$self->{orig_path} //= $path;
$self
view release on metacpan or search on metacpan
lib/Perinci/CmdLine/dux.pm view on Meta::CPAN
$r->{args}{out} = [];
}
$r->{args}{-dux_cli} = 1;
$self->SUPER::action_call($r);
}
sub hook_format_result {
my ($self, $r) = @_;
lib/Perinci/CmdLine/dux.pm view on Meta::CPAN
if ($r->{res} && $r->{res}[0] == 200 && $r->{args}{-dux_cli}) {
# insert out to result, so it can be displayed
$r->{res}[2] = $r->{args}{out};
}
$self->SUPER::hook_format_result($r);
}
sub hook_display_result {
no warnings 'uninitialized';
view release on metacpan or search on metacpan
script/_finddo view on Meta::CPAN
#
# $opts{"JSON::XS::Boolean"} //= ['one_or_zero'];
#
# $opts{"Cpanel::JSON::XS::Boolean"} //= ['one_or_zero'];
#
# $class->SUPER::new(%opts);
#}
#
#sub get_cleanser {
# my $class = shift;
# state $singleton = $class->new;
script/_finddo 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;
# state $singleton = $class->new;
script/_finddo 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/_finddo 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;
#
#__END__
view release on metacpan or search on metacpan
script/_genpw-base56 view on Meta::CPAN
#
# $opts{"JSON::XS::Boolean"} //= ['one_or_zero'];
#
# $opts{"Cpanel::JSON::XS::Boolean"} //= ['one_or_zero'];
#
# $class->SUPER::new(%opts);
#}
#
#sub get_cleanser {
# my $class = shift;
# state $singleton = $class->new;
script/_genpw-base56 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;
# state $singleton = $class->new;
script/_genpw-base56 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/_genpw-base56 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;
#
#__END__
view release on metacpan or search on metacpan
script/_genpw-base58 view on Meta::CPAN
#
# $opts{"JSON::XS::Boolean"} //= ['one_or_zero'];
#
# $opts{"Cpanel::JSON::XS::Boolean"} //= ['one_or_zero'];
#
# $class->SUPER::new(%opts);
#}
#
#sub get_cleanser {
# my $class = shift;
# state $singleton = $class->new;
script/_genpw-base58 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;
# state $singleton = $class->new;
script/_genpw-base58 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/_genpw-base58 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;
#
#__END__
view release on metacpan or search on metacpan
script/_genpw-base64 view on Meta::CPAN
#
# $opts{"JSON::XS::Boolean"} //= ['one_or_zero'];
#
# $opts{"Cpanel::JSON::XS::Boolean"} //= ['one_or_zero'];
#
# $class->SUPER::new(%opts);
#}
#
#sub get_cleanser {
# my $class = shift;
# state $singleton = $class->new;
script/_genpw-base64 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;
# state $singleton = $class->new;
script/_genpw-base64 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/_genpw-base64 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;
#
#__END__
view release on metacpan or search on metacpan
script/_genpw-id 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/_genpw-id 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/_genpw-id 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/_genpw-id 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
#
view release on metacpan or search on metacpan
script/_genpw-ind 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/_genpw-ind 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/_genpw-ind 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/_genpw-ind 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
#
view release on metacpan or search on metacpan
lib/FlashVideo/Mechanize.pm view on Meta::CPAN
use strict;
use base "WWW::Mechanize";
sub new {
my $class = shift;
my $browser = $class->SUPER::new(autocheck => 0);
$browser->agent_alias("Windows Mozilla");
my $proxy = $App::get_flash_videos::opt{proxy};
if($proxy && $proxy !~ /^\w+:/) {
my $port = ($proxy =~ /:(\d+)/)[0] || 1080;
lib/FlashVideo/Mechanize.pm view on Meta::CPAN
sub get {
my($self, @rest) = @_;
print STDERR "-> GET $rest[0]\n" if $App::get_flash_videos::opt{debug};
my $r = $self->SUPER::get(@rest);
if($App::get_flash_videos::opt{debug}) {
my $text = join " ", $self->response->code,
$self->response->header("Content-type"), "(" . length($self->content) . ")";
$text .= ": " . DBI::data_string_desc($self->content) if eval { require DBI };
lib/FlashVideo/Mechanize.pm view on Meta::CPAN
FlashVideo::Utils::error("Failed decoding as $charset: $@") if $@;
}
}
}
return $self->SUPER::update_html($html);
}
sub _parse_charset {
my($field) = @_;
return(($field =~ /;\s*charset=([-_.:a-z0-9]+)/i)[0]);
view release on metacpan or search on metacpan
lib/App/gh/Git.pm view on Meta::CPAN
push(@args, '-cmdline', $cmdline);
push(@args, '-value', $value);
push(@args, '-outputref', $outputref);
$self->SUPER::new(-text => 'command returned error', @args);
}
sub stringify {
my $self = shift;
my $text = $self->SUPER::stringify;
$self->cmdline() . ': ' . $text . ': ' . $self->value() . "\n";
}
sub cmdline {
my $self = shift;
view release on metacpan or search on metacpan
lib/App/git/ship.pm view on Meta::CPAN
sub dump {
return Data::Dumper->new([$_[1]])->Indent(1)->Terse(1)->Sortkeys(1)->Dump;
}
sub new {
my $self = shift->SUPER::new(@_);
open $self->{STDOUT}, '>&STDOUT';
open $self->{STDERR}, '>&STDERR';
return $self;
}
view release on metacpan or search on metacpan
# $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;
# "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;
# ($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);
# ($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
#
view release on metacpan or search on metacpan
inc/Pod/Markdown.pm view on Meta::CPAN
# ABSTRACT: Convert POD to Markdown
use parent qw(Pod::Parser);
sub initialize {
my $self = shift;
$self->SUPER::initialize(@_);
$self->_private;
$self;
}
sub _private {
view release on metacpan or search on metacpan
lib/App/MadEye.pm view on Meta::CPAN
my $context;
sub context { $context }
sub new {
my $class = shift;
my $self = $class->SUPER::new(@_);
$self->{results} = {};
$context = $self;
$self->_setup_logger;