view release on metacpan or search on metacpan
lib/Storable/Improved.pm view on Meta::CPAN
{
my $self = shift( @_ );
my $class = ref( $self ) || $self;
my $args = [ __FILE__, 'r' ];
# We change the glob object into a regular hash-based one to be Storable-friendly
my $this = bless( { args => $args, class => $class } => $class );
return( $this );
}
sub IO::File::STORABLE_thaw_post_processing
{
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Stream/Reader.pm view on Meta::CPAN
Readed => 0,
Stored => 0,
Total => 0,
Error => 0
};
return bless( $self => $class );
ENDC
# Destructor
DESTROY => <<'ENDC',
return 1;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/String/Formatter.pm view on Meta::CPAN
my $_codes = {
%{ $class->default_codes },
%{ $arg->{codes} || {} },
};
my $self = bless { codes => $_codes } => $class;
for (keys %METHODS) {
$self->{ $_ } = $arg->{ $_ } || do {
my $default_method = "default_$_";
$class->$default_method;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/String/Interpolate/Delayed.pm view on Meta::CPAN
sub new
{
my $class = shift;
my ($text) = @_;
bless \$text => $class;
}
sub uninterpolated
{
my $self = shift;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Su/Log.pm view on Meta::CPAN
# Su::Log->trace( "classname:" . $class_name );
# Su::Log->trace( Dumper($class_name) );
# Add the caller class to the target list automatically.
return bless { class_name => $class_name, on => 1, level => $level }, $self;
} ## end sub new
=item is_target()
Determine whether the module is a logging target or not.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Sub/Curry.pm view on Meta::CPAN
my $code_str = "sub { \$cb->(@{[join ', ', @str]}) }";
my $self = eval $code_str or die;
#return $self if $nobless;
bless $self => $class;
_code_str($self => $code_str);
_real_spice($self => $spice);
$self->uncurried($cb);
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Sub/DeferredPartial.pm view on Meta::CPAN
my $class = shift;
my $Sub = shift;
my $Free = shift;
my $Bound = shift || {};
bless { Sub => $Sub, F => $Free, B => $Bound } => $class;
}
# -----------------------------------------------------------------------------
sub Subify
# -----------------------------------------------------------------------------
{
view all matches for this distribution
view release on metacpan or search on metacpan
t/lib/Test/SubExporter/ObjGen.pm view on Meta::CPAN
sub new {
my $class = shift;
my $code = $class->can(shift);
bless { code => $code } => $class;
}
sub group {
return {
foo => sub { return 'FOO' },
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Sub/Meta.pm view on Meta::CPAN
my %args = @args == 1 && (ref $args[0]||"") ne "HASH" ? _croak "single arg must be hashref"
: @args == 1 ? %{$args[0]}
: @args;
my $self = bless \%args => $class;
$self->set_sub(delete $args{sub}) if exists $args{sub}; # build subinfo
$self->set_subname(delete $args{subname}) if exists $args{subname};
$self->set_stashname(delete $args{stashname}) if exists $args{stashname};
$self->set_fullname(delete $args{fullname}) if exists $args{fullname};
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Sub/Pipeline.pm view on Meta::CPAN
sub new {
my ($class, $arg) = @_;
$arg->{on_success} ||= 'value';
my $self = bless {} => $class;
$self->order(@{ $arg->{order} }) if $arg->{order};
$self->pipe($_ => $arg->{pipe}{$_}) for (keys %{ $arg->{pipe} });
$self->on_success($arg->{on_success});
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Sub/Signatures.pm view on Meta::CPAN
misleading.
package Foo;
use Sub::Signatures qw/methods/;
sub new($class) { bless {} => $class }
sub _some_func($bar) { return scalar reverse $bar }
sub some_method($self, $bar) {
$self->{bar} = _some_func($bar);
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Syntax/Feature/EachOnArray.pm view on Meta::CPAN
}
sub TIEHASH
{
my ($class, $arrayref) = @_;
bless [$arrayref, 0] => $class;
}
sub STORE
{
my ($self, $k, $v) = @_;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/TCP/Rebuild.pm view on Meta::CPAN
my %defaults = (
separator => 0,
filter => ''
);
my $self = bless { %defaults, @_ } => $class;
$self->{connections} = {};
return $self;
}
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Tak/STDIONode.pm view on Meta::CPAN
# duplicated in Moo::Role
sub meta {
require Moo::HandleMoose::FakeMetaClass;
my $class = ref($_[0])||$_[0];
bless({ name => $class }, 'Moo::HandleMoose::FakeMetaClass');
}
1;
MOO_OBJECT
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Taskwarrior/Kusarigama/Wrapper/Exception.pm view on Meta::CPAN
# ABSTRACT: Exception class for Taskwarrior::Kusarigama::Wrapper
$Taskwarrior::Kusarigama::Wrapper::Exception::VERSION = '0.12.0';
use strict;
use warnings;
sub new { my $class = shift; bless { @_ } => $class }
use overload (
q("") => '_stringify',
fallback => 1,
);
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/LiquidTidy.pm view on Meta::CPAN
use Template::Liquid;
use Template::LiquidX::Tidy::Tag::include;
use Template::LiquidX::Tidy::Tag::post_url;
sub new ($class, $args) {
bless $args => $class
}
sub run ($self) {
die "No file name specified\n" unless $self->{file};
my $fh;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Term/Caca/Bitmap.pm view on Meta::CPAN
use Term::Caca;
sub new {
my ($class, $bpp, $w, $h, $pitch, $rmask, $gmask, $bmask, $amask) = @_;
my $self = Term::Caca::_create_bitmap($bpp, $w, $h, $pitch, $rmask, $gmask, $bmask, $amask);
return bless($self => $class);
}
sub set_palette {
my ($self, $red, $green, $blue, $alpha) = @_;
return Term::Caca::_set_bitmap_palette($self, $red, $green, $blue, $alpha);
view all matches for this distribution
view release on metacpan or search on metacpan
Interact.pm view on Meta::CPAN
}
sub new {
my $class = shift;
my $self = bless {} => $class;
my $args = $self->process_args( @_ );
for (keys %{ $args }) {
$self->{$_} = $args->{$_};
}
return $self;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Term/Screen/Uni.pm view on Meta::CPAN
{ $self->{'handler'} = eval 'use Term::Screen; return Term::Screen->new();'; };
if (!defined($self->{'handler'}))
{ croak("Can not create Term::Screen handler: ".$@); };
return bless $self => $class;
};
1;
__END__
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Term/Screen/Win32.pm view on Meta::CPAN
$self->{'console'}->Mode(ENABLE_PROCESSED_INPUT);
at($self, 0, 0);
%{$self->{'def_key'}} = %def_key;
return bless $self => $class;
};
sub cleanup
{
$_[0]->normal();
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Term/Scroller.pm view on Meta::CPAN
defined(my $pid = fork) or croak "unable to fork: $!";
# Parent: Return the new scroller
if ($pid) {
bless $pty => $class;
${*$pty}{'term_scroller_pid'} = $pid;
return $pty;
}
################################################
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Test/AutoMock/Mock/TieArray.pm view on Meta::CPAN
use warnings;
sub TIEARRAY {
my ($class, $manager) = @_;
bless \$manager => $class;
}
sub FETCH {
my ($self, $key) = @_;
my $manager = $$self;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Test/CVE.pm view on Meta::CPAN
$self{width} //= $ENV{COLUMNS} // 80;
$self{want} //= [];
$self{make_pl} ||= "Makefile.PL";
$self{cpanfile} ||= "cpanfile";
$self{CVE} = {};
bless \%self => $class;
} # new
sub _read_cpansa {
my $self = shift;
my $src = $self->{cpansa} or croak "No source for CVE database";
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/Prove/State/Result.pm view on Meta::CPAN
my ( $class, $arg_for ) = @_;
$arg_for ||= {};
my %instance_data = %$arg_for; # shallow copy
$instance_data{version} = $class->state_version;
my $tests = delete $instance_data{tests} || {};
my $self = bless \%instance_data => $class;
$self->_initialize($tests);
return $self;
}
sub _initialize {
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Test/Mock/Guard.pm view on Meta::CPAN
++$stash->{$class_name}->{$method_name}->{called_count};
&$mocked_method;
}, $prototype);
}
}
return bless { restore => $restore, object => $object } => $class;
}
sub call_count {
my ($self, $klass, $method_name) = @_;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Test/Mock/Object/Chain.pm view on Meta::CPAN
my $last = pop @$chain;
while ( my $method = pop @$chain ) {
$last = _add_link( $method => $last );
}
return blessed $last ? $last : bless $last => $class;
}
sub _add_link {
my ( $method, $value ) = @_;
my $class = __PACKAGE__;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Test/Reporter/Transport/HTTPGateway.pm view on Meta::CPAN
my ($class, $url, $key) = @_;
die "invalid gateway URL: must be absolute http or https URL"
unless $url =~ /\Ahttps?:/i;
bless { gateway => $url, key => $key } => $class;
}
sub send {
my ($self, $report) = @_;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Test/Reporter/Transport/File.pm view on Meta::CPAN
my ($class, $dir) = @_;
die "target directory '$dir' doesn't exist or can't be written to"
unless -d $dir && -w $dir;
return bless { dir => $dir } => $class;
}
sub send {
my ($self, $report) = @_;
$report->dir( $self->{dir} );
view all matches for this distribution