view release on metacpan or search on metacpan
lib/Acme/Array/MaxSize.pm view on Meta::CPAN
splice @list, 0, $asked - $max_size{$self};
} else {
splice @list, $max_size{$self} - $asked;
}
}
$self->SUPER::SPLICE($offset, $length, @list);
}
=head1 NAME
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
# This line is here to convince "autouse" into believing we are autousable.
sub can {
($_[1] eq 'import' and caller()->isa('autouse'))
? \&Exporter::import # pacify autouse's equality test
: $_[0]->SUPER::can($_[1]) # normal case
}
# TODO
#
# Exported functions like field and super should be hidden so as not to
view release on metacpan or search on metacpan
script/cpan-author.pl view on Meta::CPAN
if (my $data = eval { local $/; open my $fh, '<', FILE or die $!; <$fh> }) {
warn 'cache';
$_->request(HTTP::Request->new('GET', shift)), return $_ for HTTP::Response->new(200, 'OK', undef, $data);
}
for ($self->SUPER::get(@_)) {
open my $fh, '>', FILE or die $!;
print $fh $_->content;
return $_;
}
view release on metacpan or search on metacpan
devdata/http_advent.perldancer.org_2018_18 view on Meta::CPAN
# Maybe check we are only scaffolding in a particular directory
cwd() eq '/opt/my_company/webapps/'
or $self->usage_error('Only create apps in our webapps directory');
# At this point, we can run the original scaffolding
$self->SUPER::execute( $opt, $args );
# Now we finished generating, but we can contineu customizing what we have
}
1;</pre>
view release on metacpan or search on metacpan
lib/Acme/Colour/Fuzzy.pm view on Meta::CPAN
$rgb2name{$rgb} = $nname;
}
}
my %unique = reverse %rgb2name;
my $self = $class->SUPER::new( { scheme => $scheme,
colours => \%unique,
distance => $similarity,
} );
return $self;
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
# This line is here to convince "autouse" into believing we are autousable.
sub can {
($_[1] eq 'import' and caller()->isa('autouse'))
? \&Exporter::import # pacify autouse's equality test
: $_[0]->SUPER::can($_[1]) # normal case
}
# TODO
#
# Exported functions like field and super should be hidden so as not to
view release on metacpan or search on metacpan
Cow/DragonAndCow.pm view on Meta::CPAN
EOC
sub new
{
my $proto = shift;
my $class = ref $proto || $proto;
my $self = $class->SUPER::new();
return bless $self, $class;
}
sub as_string
{
my $self = shift;
return $self->SUPER::as_string($dragon_and_cow);
}
view release on metacpan or search on metacpan
lib/Acme/Curses/Marquee/Extensions.pm view on Meta::CPAN
}
sub font {
$_[0]->{_font}->{$_[1]} = Text::FIGlet->new(-f=>$_[1]);
delete($_[0]->{_sweep});
return $_[-1] eq '-0' ? $_[0]->{_font}->{$_[1]} : shift->SUPER::font(@_);
}
sub sweep{
my($self, $state) = @_;
lib/Acme/Curses/Marquee/Extensions.pm view on Meta::CPAN
# if( defined($self->{_fonts}) && ($self->{offset} == $self->{txtlen}) ){
if( defined($self->{_fonts}) && every seconds=>$self->{_fontSec}||45 ){
#XXX reposition vertically iff auto-centered
$self->font( $self->{_fonts}->[ ++$i %scalar(@{ $self->{_fonts} }) ]);
}
$self->SUPER::scroll;
}
}
{
my $i = 0;
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
# This line is here to convince "autouse" into believing we are autousable.
sub can {
($_[1] eq 'import' and caller()->isa('autouse'))
? \&Exporter::import # pacify autouse's equality test
: $_[0]->SUPER::can($_[1]) # normal case
}
# TODO
#
# Exported functions like field and super should be hidden so as not to
view release on metacpan or search on metacpan
lib/Acme/DreamyImage.pm view on Meta::CPAN
use Imager qw(:handy);
use Digest::SHA1 qw(sha1_hex);
sub new {
$self = $self->SUPER::new(@args);
die "'seed' is required\n" unless defined $self->{seed};
die "'width' is required, and cannot be 0.\n" unless defined $self->{width} && $self->{width} > 0;
die "'height' is required, and cannot be 0.\n" unless defined $self->{height} && $self->{height} > 0;
$self->{seed} = sha1_hex($self->seed);
view release on metacpan or search on metacpan
package Secret::FSM;
use parent qw/ Acme::FSM /;
sub connect {
my $class = shift;
my $bb = $class->SUPER::connect( @_ );
} # or just skip constructor, if not needed
sub bravo_sf {
shift;
shift % 42, ''
}
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
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;
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
# This line is here to convince "autouse" into believing we are autousable.
sub can {
($_[1] eq 'import' and caller()->isa('autouse'))
? \&Exporter::import # pacify autouse's equality test
: $_[0]->SUPER::can($_[1]) # normal case
}
# TODO
#
# Exported functions like field and super should be hidden so as not to
view release on metacpan or search on metacpan
script/gen-generic-ind-company-names 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} = {};
view release on metacpan or search on metacpan
lib/Acme/MUDLike.pm view on Meta::CPAN
$server->loop; # or call the Event or AnyEvent event loop
Connect to the URL provided and cut and paste into the text box:
/eval package sword; our @ISA = qw/Acme::MUDLike::object/; sub new { my $pack = shift; $pack->SUPER::new(name=>"sword", @_); }
/clone sword
/i
/call sword name
wee, fun! oh, hai everyone!
/eval no strict "refs"; join '', map "$_\n", keys %{"main::"};
view release on metacpan or search on metacpan
lib/Acme/Marvel/CinematicUniverse/Character.pm.mite.pm view on Meta::CPAN
return $DOES{$role} if exists $DOES{$role};
return 1 if $role eq __PACKAGE__;
if ( $INC{'Moose/Util.pm'} and my $meta = Moose::Util::find_meta( ref $self or $self ) ) {
$meta->can( 'does_role' ) and $meta->does_role( $role ) and return 1;
}
return $self->SUPER::DOES( $role );
}
# Alias for Moose/Moo-compatibility
sub does {
shift->DOES( @_ );
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/WordList.pm view on Meta::CPAN
my $data = {
# this is silly, really. converting data unnecessarily
names => join(" ", $wl_module->new->all_words),
};
# sigh, can't do this because AM:List uses caller(0)
#$self->SUPER::init($data);
return $data;
}
1;
# ABSTRACT: Get meta names from WordList::*
view release on metacpan or search on metacpan
lib/Acme/Mitey/Cards/Card.pm.mite.pm view on Meta::CPAN
if ( $INC{'Moose/Util.pm'}
and my $meta = Moose::Util::find_meta( ref $self or $self ) )
{
$meta->can('does_role') and $meta->does_role($role) and return 1;
}
return $self->SUPER::DOES($role);
}
# Alias for Moose/Moo-compatibility
sub does {
shift->DOES(@_);
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
# This line is here to convince "autouse" into believing we are autousable.
sub can {
($_[1] eq 'import' and caller()->isa('autouse'))
? \&Exporter::import # pacify autouse's equality test
: $_[0]->SUPER::can($_[1]) # normal case
}
# TODO
#
# Exported functions like field and super should be hidden so as not to
view release on metacpan or search on metacpan
my $class = shift;
my $colour = shift;
if (defined $colour) {
undef $colour unless $colour =~ /orange/i;
}
# I can't remember if there is a better way to do this with SUPER::
# Patches welcome...
Acme::Colour::new ($class, $colour, @_);
}
sub closest {
view release on metacpan or search on metacpan
lib/Acme/Perl/Consensual.pm view on Meta::CPAN
sub can
{
if (@_ == 2 and not ref $_[1])
{
shift->SUPER::can(@_);
}
else
{
shift->_can_consent(@_);
}
view release on metacpan or search on metacpan
lib/Acme/Perl/VM/B.pm view on Meta::CPAN
B::PVMG;
sub ROK{
my($obj) = @_;
my $dummy = ${ $obj->object_2svref }; # invoke mg_get()
return $obj->SUPER::ROK;
}
package
B::CV;
view release on metacpan or search on metacpan
lib/Acme/Resume.pm view on Meta::CPAN
push @{ $opts{'traits'} ||= [] } => (
'Acme::Resume::MoopsParserTrait',
);
$class->SUPER::import(%opts);
}
1;
__END__
view release on metacpan or search on metacpan
lib/Acme/Roman.pm view on Meta::CPAN
sub new {
my $proto = shift;
my $arg = shift;
if ( $arg =~ /^\d+$/ ) { # looks like an arabic number
croak __PACKAGE__, " does not like numbers above 3999" if $arg > 3999;
return $proto->SUPER::new( { roman => Roman::Roman($arg), num => $arg } );
} elsif ( Roman::isroman($arg) ) {
return $proto->SUPER::new( { roman => $arg, num => Roman::arabic($arg) } );
} else {
croak "$arg does not look like a (roman or arabic) number";
}
}
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
package MY;
sub test {
my($self) = shift;
my $test_sec = $self->SUPER::test(@_);
substr($test_sec,index($test_sec,'TEST_VERBOSE=0'), length('TEST_VERBOSE=0') ,'TEST_VERBOSE=1');
return $test_sec;
}
#b/c of this sub, distdir only runs on Cygwin, perm changes are for Kwalitee
sub distdir {
my($self) = shift;
my $distdir_sec = $self->SUPER::distdir(@_);
#in newer perls we are patching create_distdir, in olders, distdir
#see MM patch "6.25 alphas caused a Makefile to be added to the dist. Fixed. "
my $repstartpos = index($distdir_sec,"\'\$(DIST_CP)\');\"");
die "distdir cant match" if $repstartpos == -1;
substr($distdir_sec
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
# This line is here to convince "autouse" into believing we are autousable.
sub can {
($_[1] eq 'import' and caller()->isa('autouse'))
? \&Exporter::import # pacify autouse's equality test
: $_[0]->SUPER::can($_[1]) # normal case
}
# TODO
#
# Exported functions like field and super should be hidden so as not to
view release on metacpan or search on metacpan
local/lib/perl5/Future.pm view on Meta::CPAN
instance.
sub new
{
my $proto = shift;
my $self = $proto->SUPER::new;
if( ref $proto ) {
# Prototype was an instance
}
else {
view release on metacpan or search on metacpan
$img->write(data=> \$raw, type => 'raw')
or croak($img->errstr);
$self->raw($raw);
$self->SUPER::write_images;
}
package Acme::Steganography::Image::Png;
sub generate_next_image {
my ($self) = shift;
view release on metacpan or search on metacpan
lib/Win32/PEPM/Build.pm view on Meta::CPAN
if($oldpm_to_blib){
$dlib = &$oldpm_to_blib(@_);
} else {
package MY;
my($self) = shift;
$dlib = $self->SUPER::pm_to_blib(@_);
package main;
}
my $pos = index($dlib,'pm_to_blib : $(FIRST_MAKEFILE) $(TO_INST_PM)',0);
die 'bad pm_to_blib match' if $pos == -1;
$pos += length 'pm_to_blib : $(FIRST_MAKEFILE) $(TO_INST_PM)';
lib/Win32/PEPM/Build.pm view on Meta::CPAN
if($oldconstants){
$dlib = &$oldconstants(@_);
} else {
package MY;
my($self) = shift;
$dlib = $self->SUPER::constants(@_);
package main;
}
my $pos = index($dlib,'INST_DYNAMIC = $(INST_ARCHAUTODIR)\$(DLBASE).$(DLEXT)',0);
die 'bad constants match' if $pos == -1;
substr($dlib, $pos, length('INST_DYNAMIC = $(INST_ARCHAUTODIR)\$(DLBASE).$(DLEXT)'),