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
lib/Acme/LastWords.pm view on Meta::CPAN
# TODO: add more
);
sub new {
my $class = shift;
bless [$_[0]], $class;
}
sub DESTROY {
print +(defined $_[0][0] ? $_[0][0] : $words[rand @words]), "\n";
}
view release on metacpan or search on metacpan
lib/Acme/Letter.pm view on Meta::CPAN
my $array_dot =[['*','*','*','*','*','*'],['*','*','*','*','*','*'],['*','*','*','*','*','*'],['*','*','_','*','*','*'],['*','(','_',')','*','*']];
$self{"array_dot"} = $array_dot;
my $lines = [];
$self{"lines"} = $lines;
return bless(\%self,$package);
}
sub printString()
{
my $self = shift;
view release on metacpan or search on metacpan
lib/Acme/LifeUniverseEverything.pm view on Meta::CPAN
binary => sub { Acme::LifeUniverseEverything->new(shift) };
}
sub new {
my ($pkg, $val) = @_;
bless \$val, $pkg;
}
1;
__END__
view release on metacpan or search on metacpan
@ISA = (Tie::Handle);
sub TIEHANDLE
{
my $string;
bless \$string, shift;
}
sub READLINE
{
my $self = shift;
view release on metacpan or search on metacpan
lib/Acme/Llama.pm view on Meta::CPAN
=cut
sub new {
my $class = shift;
my $self = bless {}, $class;
$llama{'foodage'} = 0;
$llama{'happiness'} = 0;
$llama{'tired'} = 0;
return $self;
}
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/Loopy.pm view on Meta::CPAN
our $VERSION = '0.004';
sub new
{
my $class = shift;
bless \@_, $class;
}
sub DESTROY
{
${$_[0][1]} = $_[0][0];
view release on metacpan or search on metacpan
lib/Acme/Lou.pm view on Meta::CPAN
return Acme::Lou->new->translate($text);
}
sub new {
my $class = shift;
my $self = bless {
mecab_option => {
userdic => dist_file('Acme-Lou', Text::Mecabist->encoding->name .'.dic'),
},
lou_rate => 100,
@_,
view release on metacpan or search on metacpan
lib/Acme/Lvalue.pm view on Meta::CPAN
{
package Acme::Lvalue::Proxy;
sub TIESCALAR {
my ($class, $ref, $func, $cnuf) = @_;
bless [$ref, $func, $cnuf], $class
}
sub FETCH {
my ($self) = @_;
$self->[1]->(${$self->[0]})
view release on metacpan or search on metacpan
BleedingOpenGL.pm view on Meta::CPAN
glXSwapBuffers() if __had_dbuffer_hack();
}
sub Acme::MITHALDU::BleedingOpenGL::Quad::DESTROY ($) {gluDeleteQuadric(shift)}
@Acme::MITHALDU::BleedingOpenGL::Quad::ISA = 'GLUquadricObjPtr';
sub __new_gluQuad () {bless gluNewQuadric(), 'Acme::MITHALDU::BleedingOpenGL::Quad'}
sub glpSolidSphere ($$$) {
gluSphere(__new_gluQuad, shift, shift, shift);
}
unless (_have_glut()) {
view release on metacpan or search on metacpan
inc/Inline.pm view on Meta::CPAN
my $next = 0;
for (@config) {
next if $next++ % 2;
croak M02_usage() if /[\s\n]/;
}
$o = bless {}, $class;
$o->{INLINE}{version} = $VERSION;
$o->{API}{pkg} = $pkg;
$o->{API}{script} = $script;
$o->{API}{language_id} = $language_id;
if ($option =~ /^(FILE|BELOW)$/i or
inc/Inline.pm view on Meta::CPAN
my $next = 0;
for (@config) {
next if $next++ % 2;
croak M03_usage_bind() if /[\s\n]/;
}
$o = bless {}, $class;
$o->{INLINE}{version} = $VERSION;
$o->{API}{pkg} = $pkg;
$o->{API}{script} = $script;
$o->{API}{language_id} = $language_id;
$o->receive_code($code);
inc/Inline.pm view on Meta::CPAN
or $o->{CONFIG}{PRINT_INFO}
) {
eval "require $o->{INLINE}{ILSM_module}";
croak M05_error_eval('glue', $@) if $@;
$o->push_overrides;
bless $o, $o->{INLINE}{ILSM_module};
$o->validate(@config);
}
else {
$o->{CONFIG} = {(%{$o->{CONFIG}}, @config)};
}
inc/Inline.pm view on Meta::CPAN
ref($o) eq 'Inline'
) {
eval "require $o->{INLINE}{ILSM_module}";
croak M05_error_eval('glue', $@) if $@;
$o->push_overrides;
bless $o, $o->{INLINE}{ILSM_module};
$o->validate(@config);
}
$o->load;
$o->pop_overrides;
}
view release on metacpan or search on metacpan
lib/Acme/MUDLike.pm view on Meta::CPAN
print "Admin:\n", $continuity->adapter->daemon->url, '?admin=', $password, '&nick=', (getpwuid $<)[0], "\n";
$floor ||= Acme::MUDLike::room->new();
$players ||= Acme::MUDLike::inventory->new();
bless { }, $package;
}
sub loop { my $self = shift; $continuity->loop(@_); }
sub header {
lib/Acme/MUDLike.pm view on Meta::CPAN
# object
#
package Acme::MUDLike::object;
sub new { my $package = shift; bless { @_ }, $package; }
sub name :lvalue { $_[0]->{name} }
sub environment :lvalue { $_[0]->{environment} }
sub use { }
sub player { 0 }
sub desc { }
lib/Acme/MUDLike.pm view on Meta::CPAN
package Acme::MUDLike::inventory;
sub new {
# subclass this to build little container classes or create instances of it directly
my $package = shift; bless [ ], $package;
}
sub delete {
my $self = shift;
my $name = shift;
lib/Acme/MUDLike.pm view on Meta::CPAN
push our @ISA, 'Acme::MUDLike::object';
sub player { 1 }
sub new {
my $pack = shift;
bless {
inventory => Acme::MUDLike::inventory->new,
messages => [ ],
@_,
}, $pack;
}
view release on metacpan or search on metacpan
lib/Acme/Machi.pm view on Meta::CPAN
Create a Machi-type instance.
=cut
sub new {
(ref $_[0]) && croak "Oops! Cannot use instance method to construt an object!";
bless {
Name => $_[1] // "Machi",
Words => ["I am starving!!"], # In general, creatures always know how to express their hunger.
SRCH_Habit => 'BFS',
}, $_[0];
}
view release on metacpan or search on metacpan
lib/Acme/MadokaMagica/TvMembers.pm view on Meta::CPAN
$self->{startline} = $args{line};
} else {
$self->{startline} = (caller)[2];
}
return bless $self, $class;
}
sub has_qb {
my $self = shift;
view release on metacpan or search on metacpan
lib/Acme/Marvel/CinematicUniverse/Character.pm.mite.pm view on Meta::CPAN
# Standard Moose/Moo-style constructor
sub new {
my $class = ref($_[0]) ? ref(shift) : shift;
my $meta = ( $Mite::META{$class} ||= $class->__META__ );
my $self = bless {}, $class;
my $args = $meta->{HAS_BUILDARGS} ? $class->BUILDARGS( @_ ) : { ( @_ == 1 ) ? %{$_[0]} : @_ };
my $no_build = delete $args->{__no_BUILD__};
# Attribute real_name (type: Str)
# param declaration, file lib/Acme/Marvel/CinematicUniverse/Character.pm, line 19
view release on metacpan or search on metacpan
lib/Acme/Math/Google.pm view on Meta::CPAN
unless ($self->{ua}){
my $ua = LWP::UserAgent->new;
$ua->agent( __PACKAGE__ . '/' . $VERSION );
$self->{ua} = $ua;
}
return bless $self, $class;
}
sub calc{
my $self = shift;
my $query = shift;
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
lib/Acme/Meow.pm view on Meta::CPAN
This method will take a hashref of options as required.
=cut
sub new {
bless{},shift
}
=head1 METHODS
=head2 pet - pet the kitty
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/haddock.pm view on Meta::CPAN
Casse_pieds Catachrese Cataplasme Cercopitheque Chauffard Chenapan
Cholera Chouette_mal_empaillee Cloporte Coleoptere Coloquinte Coquin
Cornemuse Cornichon Cornichon_diplome Corsaire Coupe_jarret Cow_boy
Creme_d_emplatre Cretin_de_l_Himalaya Cretin_des_Alpes Cretin_des_Balcans
Cromagnon Cyanure Cyclone Cyclotron Cyrano_a_quatre_pattes Demon
Diablesse Diplodocus Doryphore Dynamiteur Ecornifleur Ecraseur Ectoplasme
Ectoplasme_a_roulettes Egoiste Emplatre Emplatre_a_la_creme_de_herisson
Empoisonneur Energumene Enrage Epouvantail Esclavagiste Escogriffe Escroc
Espece_de_bayadere_de_carnaval Espece_de_projectile_guide Espece_de_zouave
Fatma_de_prisunic Faux_jeton Flibustier Flibustier_de_carnaval Forban
Freres_de_la_cote Froussard Galopin Gangster Garde_cote_a_la_mie_de_pain
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic.pm view on Meta::CPAN
my $theme;
$theme = shift @args if @args % 2;
$theme = $Theme unless $theme; # same default everywhere
# defer croaking until name() is actually called
bless { theme => $theme, args => { @args }, meta => {} }, $class;
}
# CLASS METHODS
sub add_theme {
my $class = shift;
view release on metacpan or search on metacpan
package main;
use Test::Simple tests => 11;
my $obj = bless {}, "MyClass";
ok(MyClass->foo);
ok($obj->foo);
ok($obj->baR);
view release on metacpan or search on metacpan
lib/Acme/Mitey/Cards/Card.pm.mite.pm view on Meta::CPAN
# Mite imports
BEGIN {
require Scalar::Util;
*STRICT = \&Acme::Mitey::Cards::Mite::STRICT;
*bare = \&Acme::Mitey::Cards::Mite::bare;
*blessed = \&Scalar::Util::blessed;
*carp = \&Acme::Mitey::Cards::Mite::carp;
*confess = \&Acme::Mitey::Cards::Mite::confess;
*croak = \&Acme::Mitey::Cards::Mite::croak;
*false = \&Acme::Mitey::Cards::Mite::false;
*guard = \&Acme::Mitey::Cards::Mite::guard;
lib/Acme/Mitey/Cards/Card.pm.mite.pm view on Meta::CPAN
# Standard Moose/Moo-style constructor
sub new {
my $class = ref( $_[0] ) ? ref(shift) : shift;
my $meta = ( $Mite::META{$class} ||= $class->__META__ );
my $self = bless {}, $class;
my $args =
$meta->{HAS_BUILDARGS}
? $class->BUILDARGS(@_)
: { ( @_ == 1 ) ? %{ $_[0] } : @_ };
my $no_build = delete $args->{__no_BUILD__};
# Attribute deck (type: Deck)
# has declaration, file lib/Acme/Mitey/Cards/Card.pm, line 9
if ( exists $args->{"deck"} ) {
blessed( $args->{"deck"} )
&& $args->{"deck"}->isa("Acme::Mitey::Cards::Deck")
or croak "Type check failed in constructor: %s should be %s",
"deck", "Deck";
$self->{"deck"} = $args->{"deck"};
}
view release on metacpan or search on metacpan
lib/Acme/Mobile/Therbligs.pm view on Meta::CPAN
=cut
sub new {
my $class = shift;
my $self = { };
bless $self, $class;
$self->_initialize(@_);
return $self;
}
my $Default;
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
lib/Acme/Monkey.pm view on Meta::CPAN
=cut
sub new {
my $class = shift;
my $self = bless {}, $class;
$self->{hunger} = 80;
$self->{happiness} = 50;
$self->{drunkness} = 0;
$self->{sub} = undef;
return $self;
lib/Acme/Monkey.pm view on Meta::CPAN
croak "Height required\n" if !defined($self->{HEIGHT});
$self->{BUF_SIZE} = $self->{WIDTH} * $self->{HEIGHT};
$self->{BUFFER} = '';
bless($self, $class);
}
sub width {
my ($self) = shift;
return $self->{WIDTH};
lib/Acme/Monkey.pm view on Meta::CPAN
{
package Acme::Monkey::ScreenBuffer;
sub new {
my ($class, $width, $height) = @_;
my $self = bless {}, $class;
$self->{width} = $width;
$self->{height} = $height;
$self->clear_screen();
$self->clear_buffer();
return $self;
view release on metacpan or search on metacpan
lib/Acme/Monta.pm view on Meta::CPAN
sub new {
my $class = shift;
my %args = @_;
my $self = bless {
_start => $args{start} ? $args{start} : '<monta>',
_end => $args{end} ? $args{end} : '</monta>',
_open_font => $args{open_font} ? $args{open_font} : '#000',
_open_back => $args{open_back} ? $args{open_back} : '#fff',
view release on metacpan or search on metacpan
lib/Acme/MorningMusume.pm view on Meta::CPAN
);
unshift @date_joined, undef;
sub new {
my $class = shift;
my $self = bless {members => []}, $class;
$self->_initialize;
return $self;
}