view release on metacpan or search on metacpan
lib/AWS/SQS/Simple.pm view on Meta::CPAN
};
## Private and class data here.
bless( $self, $class );
return $self;
}
view release on metacpan or search on metacpan
lib/AWS/Signature4.pm view on Meta::CPAN
$id ||= $args{-access_key} || $ENV{EC2_ACCESS_KEY}
or croak "Please provide -access_key parameter or define environment variable EC2_ACCESS_KEY";
$secret ||= $args{-secret_key} || $ENV{EC2_SECRET_KEY}
or croak "Please provide -secret_key or define environment variable EC2_SECRET_KEY";
return bless {
access_key => $id,
secret_key => $secret,
(defined($args{-security_token}) ? (security_token => $args{-security_token}) : ()),
},ref $self || $self;
}
view release on metacpan or search on metacpan
lib/AWS/XRay/Buffer.pm view on Meta::CPAN
use warnings;
sub new {
my $class = shift;
my ($sock, $auto_flush) = @_;
bless {
buf => [],
sock => $sock,
auto_flush => $auto_flush,
}, $class;
}
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/Aard.pm view on Meta::CPAN
index_format => ($header{index1_item_format} eq '>LL' ? 'L>L>' : 'L>Q>'),
index_length => ($header{index1_item_format} eq '>LL' ? 8 : 12),
);
$obj{index1_offset} = $header_length + $obj{meta_length};
$obj{index2_offset} = $obj{index1_offset} + $obj{index_count} * $obj{index_length};
bless \%obj, $self
}
1;
__END__
view release on metacpan or search on metacpan
lib/Abilities.pm view on Meta::CPAN
attribute as requiring role names instead of role objects, the actual
implementation still required role objects. This has now been fixed,
but it also meant I had to add a new requirement: consuming classes
now have to provide a method called C<get_role()> that takes the name
of a role and returns its object. This will probably means loading the
role from a database and blessing it into your role class that also consumes
this module.
I apologize for any inconvenience this might have caused.
=head1 AUTHOR
view release on metacpan or search on metacpan
lib/Abstract/Meta/Attribute.pm view on Meta::CPAN
sub new {
my $class = shift;
unshift @_, $class;
bless {&initialise}, $class;
}
=item initialise
view release on metacpan or search on metacpan
'other' => $other,
'date_style' => 'java',
'auto_save' => 0,
};
my $self = bless $contents,ref($class)||$class;
$self->_create_cache($cache) if $cache;
$self->name2db("$self",$self);
return $self;
}
view release on metacpan or search on metacpan
lib/Acme/123.pm view on Meta::CPAN
sub new
{
my ($class, %parameters) = @_;
my $self = bless ({}, ref ($class) || $class);
return $self;
}
=head1 NAME
view release on metacpan or search on metacpan
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer doesn't need an iPod. His ears play the song he wants to hear.
%
For his 40th birthday, Jack Bauer wished that Nina Myers was alive. So he could kill her again.
%
When Jack Bauer sneezes, God blesses him.
%
Jack Bauer was the only one to redeem his frequent flyer miles from David Spade.
%
Alex Trebek once asked Jack Bauer the question, "What's your idea of a perfect game show?" He replied with, "I'm the contestant and I ask the questions around here." Jeopardy was born at that moment.
%
fortune/jackbauer view on Meta::CPAN
%
The only reason Jack Bauer gets captured by terrorists is to lure them into a false sense of security. Then, when they get cocky, he can take them out with the soundwaves from his gruff voice.
%
When Jack Bauer enters a restroom, the toilets urinate.
%
Jack Bauer once killed a room full of people because nobody blessed him when he sneezed.
%
Hardee's is considering renaming their Monster Thickburger - "The Jack Bauer Burger" - because with its 1,420 calories, 107 grams of fat, 229 milligrams of cholesterol, and 2,651 milligrams of sodium - it could kill you.
%
Jack Bauer is the only man who doesn't suffer from shrinkage.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Baur once cured a child of down syndrome. He beat the extra gene out of him.
%
China is now the number one importer of weapons of mass destruction: Jack Bauer.
%
Many ask what happened to Beruz in season 4. To Jack Bauer the day is a game, and if you leave the designated area without the blessing of Jack you get erased from existence.
%
LA recently instituted a new city beautification program. They painted a giant picture of Jack Bauer's face covering the whole city. Now LA's birds are all gone because nothing shits on Jack Bauer and lives.
%
Every time you maturbate Jack Bauer kills a terrorist. Not beacuase you masurbated, but because that is how often he kills terrorists.
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer gives cigarettes cancer.
%
Oxygen requires Jack Bauer to survive.
%
"You don't know Jack" is a blessing among terrorists.
%
When Jack Bauer read "Dianetics", he killed L. Ron Hubbard for mental terrorism.
%
Jack Bauer can substitute Z's for vowels in Scrabble.
%
view release on metacpan or search on metacpan
lib/Acme/2zicon.pm view on Meta::CPAN
YamatoAo
);
sub new {
my $class = shift;
my $self = bless {members => []}, $class;
$self->_initialize;
return $self;
}
view release on metacpan or search on metacpan
lib/Acme/6502.pm view on Meta::CPAN
}
}
sub new {
my $class = shift;
my $self = bless { }, $class;
$self->_BUILD( @_ );
return $self;
}
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/Aheui.pm view on Meta::CPAN
_y => 0,
_dx => 0,
_dy => 1,
_encoding => $encoding,
};
bless $self, $class;
return $self;
}
sub build_codespace {
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/Akashic/Records.pm view on Meta::CPAN
use strict;
our $VERSION = sprintf "%d.%02d", q$Revision: 0.1 $ =~ /(\d+)/g;
my $records;
$records = \$records;
bless $records, __PACKAGE__;
sub AUTOLOAD { $records }
for my $type (qw/ARRAY HASH HANDLE/) {
no strict 'refs';
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/AlgebraicToRPN.pm view on Meta::CPAN
=cut
sub new {
my ($class, %opts) = @_;
my $self = \%opts;
bless $self, $class;
$.stack = [];
$.parser = Math::Symbolic::Parser->new;
$.Class = $class;
if (defined $.userFunc) {
my @uf = @{$.userFunc};
view release on metacpan or search on metacpan
lib/Acme/Ane.pm view on Meta::CPAN
our $VERSION = "0.01";
our @EXPORT_OK = qw( ane );
sub new {
my ($class, $object) = @_;
bless {object => $object}, $class
}
sub is_ane { 1; }
sub ane {
view release on metacpan or search on metacpan
lib/Acme/Archive/Mbox.pm view on Meta::CPAN
=cut
sub new {
my $class = shift;
my $self = { files => [] };
return bless $self,$class;
}
=head2 add_data ($name, $contents, %attr)
Add a file given a filename and contents. (File need not exist on disk)
view release on metacpan or search on metacpan
lib/Acme/Array/MaxSize.pm view on Meta::CPAN
my $last_index = sub { $max_size{+shift} - 1 };
sub TIEARRAY {
my ($class, $max_size) = @_;
my $self = bless [], $class;
$max_size{$self} = $max_size;
return $self
}
sub STORE {
view release on metacpan or search on metacpan
lib/Acme/AsciiArtFarts.pm view on Meta::CPAN
=cut
sub new {
my $class = shift;
my $self = {};
bless $self, $class;
$self->{ua} = LWP::UserAgent->new();
$self->{uri} = 'http://www.asciiartfarts.com';
$self->{req} = HTTP::Request->new(GET => $self->{uri});
$self->__get_keywords;
$self->{cur_key}= '';
view release on metacpan or search on metacpan
lib/Acme/BABYMETAL.pm view on Meta::CPAN
my @members = qw(SU-METAL YUIMETAL MOAMETAL);
sub new {
my $class = shift;
my $self = bless {members => []}, $class;
for my $member (@members) {
$member =~ s|-|_|;
my $module_name = 'Acme::BABYMETAL::' . $member;
eval qq|require $module_name;|;
push @{$self->{members}}, $module_name->new;
view release on metacpan or search on metacpan
lib/Acme/BayaC.pm view on Meta::CPAN
sub new {
my $class = shift;
my $args = shift || +{};
bless $args, $class;
}
1;
__END__
view release on metacpan or search on metacpan
lib/Acme/Be/Modern.pm view on Meta::CPAN
L<perlfilter>. It's implemented using two functions:
=head2 import
This will be called after L<Acme::Be::Modern> has been loaded. Simply
calls filter_add() with a blessed reference. Now the filter is
activated.
=cut
sub import {
my ($type) = @_;
my ($ref) = [];
filter_add(bless $ref);
}
=head2 filter
view release on metacpan or search on metacpan
lib/Acme/BeyondPerl/ToSQL.pm view on Meta::CPAN
}
sub _integer_handler {
my ($ori, $interp, $contect) = @_;
return bless \$interp, __PACKAGE__ . "::$Type\::__Integer";
}
sub _float_handler {
my ($ori, $interp, $contect) = @_;
return bless \$interp, __PACKAGE__ . "::$Type\::__Float";
}
##############################################################################
# Use From Objects
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/BloodType.pm view on Meta::CPAN
} else {
my @possible = keys %$geno_pheno;
$self->{'genotype'} = $possible[rand @possible];
}
return bless $self, $class;
}
=head2 $bt->get_bloodtype
Get the bloodtype (phenotype) of this person. Returns "A", "B", "AB", or "O".
view release on metacpan or search on metacpan
use base 'Tie::Handle';
use Carp;
use FileHandle;
sub TIEHANDLE {
my $class = bless {}, shift;
my ($stringref) = @_;
if (! defined($stringref)) {
my $temp_s = '';
view release on metacpan or search on metacpan
lib/Acme/Buga.pm view on Meta::CPAN
sub new {
my $class = shift;
my $args = (@_ % 2 == 0) ? {@_} : undef;
return bless {_value => $args->{value} || undef}, $class;
}
# accessors
sub base8 {
return Convert::BaseN->new( base => 8 );