view release on metacpan or search on metacpan
lib/Acme/MyFirstModule/MALLEN.pm view on Meta::CPAN
# ABSTRACT: turns baubles into trinkets
sub new {
my $class = shift;
my $self = bless {}, $class;
return $self;
}
sub ping {
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
$args{path} =~ s!::!/!g;
}
$args{file} ||= "$args{base}/$args{prefix}/$args{path}.pm";
$args{wrote} = 0;
bless( \%args, $class );
}
sub call {
my ($self, $method) = @_;
my $obj = $self->load($method) or return;
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
$args{path} = $args{name};
$args{path} =~ s!::!/!g;
}
$args{file} ||= "$args{prefix}/$args{path}.pm";
bless(\%args, $class);
}
#line 210
sub call {
view release on metacpan or search on metacpan
lib/acme/newmath.pm view on Meta::CPAN
sub import {
overload::constant integer => sub { Acme::NewMath->new(shift); };
}
sub new { my $class = shift; my $value = shift; bless [ $value, 0 ], $class; }
sub compare { my ($a,$b)=@_;
ref($b)or$b=__PACKAGE__->new($b);
($a->[0]+$a->[1]) <=> ($b->[0]+$b->[1]); }
sub add { my ($a,$b)=@_; ref($b)or$b=__PACKAGE__->new($b); bless [$a->[0]+$b->[0], ($a->[0]==2&&$b->[0]==2)?1:0], ref $a; }
# other ops needed to make things work.
sub stringify { ''.(shift)->[0]; }
sub numberify { (shift)->[0]; }
sub strcompare { my ($a,$b) = @_; ''.$a cmp ''.$b; }
sub clone { my $this = shift; bless [@$this], ref $this; }
sub unaryminus { my $this = shift; bless [-$this->[0], 0], ref $this; }
sub increment { my $this = shift; $this->[0]++; $this->[1]=0; $this; }
sub decrement { my $this = shift; $this->[0]--; $this->[1]=0; $this; }
sub generic {
my ($a,$b,$inv,$op) = @_;
lib/acme/newmath.pm view on Meta::CPAN
} elsif (defined $b) {
$str = '$a->[0] ' . $op . ' $b->[0]';
} else {
$str = $op . ' $a->[0]';
}
bless [ eval($str), 0 ], ref $a;
}
1;
__END__
view release on metacpan or search on metacpan
lib/Acme/NoTalentAssClown.pm view on Meta::CPAN
"A Love So Beautiful",
"This River"
]
};
$Lyrics::Fetcher::gid = $options{gid};
bless( $self, $class );
return ($self);
}
=head1 NAME
view release on metacpan or search on metacpan
lib/Acme/Nogizaka46.pm view on Meta::CPAN
MatsuiRena:2014-02-24
);
sub new {
my $class = shift;
my $self = bless {members => []}, $class;
$self->_initialize;
return $self;
}
view release on metacpan or search on metacpan
package Annoying;
sub new
{
bless [], Annoying;
}
sub f
{
shift; "OO";
our $foo;
sub new
{
shift;
bless { blah => shift }, Annoying2;
}
sub f2
{
shift->{blah}
view release on metacpan or search on metacpan
lib/Acme/Numbers.pm view on Meta::CPAN
my $class = shift;
$class = ref $class if ref $class;
my $val = shift;
my $op = shift;
my $name = shift || $op;
bless { value => $val, operator => $op, name => $name }, $class;
}
=head2 name
The name of this object (i.e the method that was originally called).
view release on metacpan or search on metacpan
lib/Acme/Nyaa.pm view on Meta::CPAN
$argvs->{'loaded-languages'} = [];
$argvs->{'objectid'} = int rand 2**24;
$argvs->{'encoding'} = q();
$argvs->{'utf8flag'} = undef;
my $nyaan = bless $argvs, __PACKAGE__;
my $klass = $nyaan->loadmodule( $argvs->{'language'} );
my $this1 = $nyaan->findobject( $klass, 1 );
$nyaan->{'subclass'} = $klass;
return $nyaan;
view release on metacpan or search on metacpan
lib/Tie/Cycle.pm view on Meta::CPAN
use constant COUNT_COL => 1;
use constant ITEM_COL => 2;
sub TIESCALAR {
my( $class, $list_ref ) = @_;
my $self = bless [], $class;
unless( $self->STORE( $list_ref ) ) {
carp "The argument to Tie::Cycle must be an array reference";
return;
}
view release on metacpan or search on metacpan
Octarine.pm view on Meta::CPAN
my $deparse = B::Deparse->new("-sC");
my $body = $deparse->coderef2text(\&Acme::Colour::new);
my $r = closed_over(\&Acme::Colour::new)->{'%r'};
# Add a my $sub; declaration at the top level
$body =~ s/([ \t]+)(bless)/$1my \$sub;\n$1$2/ or die $body;
# If colour is defined, look it up in the specials hash
$body =~ s/
([ \t]+) # Must get the indent correct
(unless[ \t]*\(exists[ \t]*\$r)({\$colour})\)
/$1\$sub = \$Acme::Colour::specials{\$colour};
view release on metacpan or search on metacpan
lib/Acme/Oil/Ashed/Scalar.pm view on Meta::CPAN
my $scalar = shift;
my $self = {
value => $scalar,
level => 10,
};
bless $self, $class;
}
sub FETCH {
'ASH';
view release on metacpan or search on metacpan
OneHundredNotOut.pm view on Meta::CPAN
Simon Cozens, C<simon@cpan.org>.
=cut
"Thanks and blessings to you all.
Goodbye, baby, and amen.";
view release on metacpan or search on metacpan
lib/Acme/OnePiece.pm view on Meta::CPAN
my $io = IO::File->new($file, 'r') or die "Usage: Acme::OnePiece->new(\$filename)\n" . $!;
my @lines = $io->getlines;
my $contents = join('',@lines);
$options->{contents} = $contents;
my $self = bless $options, $class;
return $self;
}
sub onepiece {
my ($self) = @_;
view release on metacpan or search on metacpan
lib/Acme/Ook.pm view on Meta::CPAN
eval $_[0]->optimise(&compile);
}
sub new {
my $class = shift;
bless \$_[0], ref $class || $class;
}
1;
__END__
=pod
view release on metacpan or search on metacpan
lib/Acme/Oppai.pm view on Meta::CPAN
use warnings;
use utf8;
use Encode;
use Encode::Guess;
use Scalar::Util qw(blessed);
our $VERSION = '0.03';
our %BASIC_AA = (
oppai => sub {
lib/Acme/Oppai.pm view on Meta::CPAN
my $str = '';
my $self = [
\$str,
\%opt,
];
$self = bless $self, $class;
$self->clear;
$self;
}
lib/Acme/Oppai.pm view on Meta::CPAN
$BASIC_AA{$type}($word);
}
sub base {
my $proto = shift;
my $self = blessed($proto) ? $proto : $proto->new;
my $type = shift;
if ($self->[1]->{default}) {
$type .= "_$1" if $self->[1]->{default} =~ /^(up|down)$/;
} else {
view release on metacpan or search on metacpan
lib/Acme/PETEK/Testkit.pm view on Meta::CPAN
sub new {
my $class = shift;
my $self = {
_counter => 0,
};
return bless $self, $class;
}
=head1 OBJECT METHODS
=head2 $kit->reset( $int );
view release on metacpan or search on metacpan
);
sub new {
my $self = {};
my $class = shift;
bless $self, ref $class || $class;
if( @_ ) {
my %cfg = @_;
foreach( keys %cfg ) {
$self->{"cfg"}->{$_} = $cfg{$_};
}
view release on metacpan or search on metacpan
lib/Acme/PM/Barcelona/Meeting.pm view on Meta::CPAN
byhour => [ 20 ],
byminute => [ 0 ],
bysecond => [ 0 ],
);
bless $self, $class;
}
1; # End of Acme::PM::Barcelona::Meeting
view release on metacpan or search on metacpan
lib/Acme/POE/Acronym/Generator.pm view on Meta::CPAN
my %opts = @_;
$opts{lc $_} = delete $opts{$_} for keys %opts;
$opts{dict} = '/usr/share/dict/words' unless $opts{dict};
$opts{key} =~ s/[^A-Za-z]//g if $opts{key};
$opts{key} = lc $opts{key} if $opts{key};
my $self = bless \%opts, $package;
$self->{poe} = [ $opts{key}? split( //, $opts{key} ) : qw(p o e) ];
my $key = join '', @{$self->{poe}};
if ( $opts{wordlist} and ref $opts{wordlist} eq 'ARRAY' ) {
view release on metacpan or search on metacpan
lib/Acme/POE/Knee.pm view on Meta::CPAN
unless( exists $data->{$key} ) {
print "WARNING! Option $key is not supported in $class!\n";
}
}
### bless the object into the class ###
bless $self, $class;
### now we start adding the data ###
for my $key (keys %$data) {
if ( exists $args{$key} ) {
$self->{$key} = $args{$key};
view release on metacpan or search on metacpan
lib/Acme/POE/Tree.pm view on Meta::CPAN
our $VERSION = '1.022';
sub new {
my ($class, $arg) = @_;
my $self = bless { %{$arg || {}} }, $class;
$self->{light_delay} ||= 1;
$self->{star_delay} ||= 1.33;
POE::Session->create(
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
$args{path} = $args{name};
$args{path} =~ s!::!/!g;
}
$args{file} ||= "$args{base}/$args{prefix}/$args{path}.pm";
bless( \%args, $class );
}
sub call {
my ($self, $method) = @_;
my $obj = $self->load($method) or return;
view release on metacpan or search on metacpan
lib/Acme/Partitioner.pm view on Meta::CPAN
our $VERSION = '0.01';
sub using {
my ($class, @list) = @_;
bless {
by_string => { map { $_ => 0 } @list },
sublists => [\@list],
}, $class;
}
lib/Acme/Partitioner.pm view on Meta::CPAN
use warnings;
sub _new {
my ($old, $type, $sub, $partitioner) = @_;
$partitioner //= $old->{partitioner};
bless {
partitioner => $partitioner,
subs => [
($old ? @{ $old->{subs} } : ()),
[$type, $sub],
],
view release on metacpan or search on metacpan
# Constructor.
sub new {
my ($class, @params) = @_;
# Create object.
my $self = bless {}, $class;
# Process parameters.
set_params($self, @params);
# Object.
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
$args{path} =~ s!::!/!g;
}
$args{file} ||= "$args{base}/$args{prefix}/$args{path}.pm";
$args{wrote} = 0;
bless( \%args, $class );
}
sub call {
my ($self, $method) = @_;
my $obj = $self->load($method) or return;
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
$args{path} =~ s!::!/!g;
}
$args{file} ||= "$args{base}/$args{prefix}/$args{path}.pm";
$args{wrote} = 0;
bless( \%args, $class );
}
sub call {
my ($self, $method) = @_;
my $obj = $self->load($method) or return;
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
$args{path} = $args{name};
$args{path} =~ s!::!/!g;
}
$args{file} ||= "$args{base}/$args{prefix}/$args{path}.pm";
bless( \%args, $class );
}
sub call {
my ($self, $method) = @_;
my $obj = $self->load($method) or return;
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
$args{path} = $args{name};
$args{path} =~ s!::!/!g;
}
$args{file} ||= "$args{prefix}/$args{path}.pm";
bless(\%args, $class);
}
#line 212
sub call {
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
$args{path} =~ s!::!/!g;
}
$args{file} ||= "$args{base}/$args{prefix}/$args{path}.pm";
$args{wrote} = 0;
bless( \%args, $class );
}
sub call {
my ($self, $method) = @_;
my $obj = $self->load($method) or return;