view release on metacpan or search on metacpan
lib/HTTP/Headers/ActionPack/ContentNegotiation.pm view on Meta::CPAN
my $action_pack = shift;
(blessed $action_pack && $action_pack->isa('HTTP::Headers::ActionPack'))
|| confess "You must supply an instance of HTTP::Headers::ActionPack";
bless { action_pack => $action_pack } => $class;
}
sub action_pack { (shift)->{'action_pack'} }
sub choose_media_type {
view release on metacpan or search on metacpan
lib/HTTP/Promise/Headers.pm view on Meta::CPAN
{
warn( "No error object provided and no previous error set either! It seems the previous method call returned a simple undef\n" );
}
else
{
$err = ( defined( $class ) ? bless( $self->{error} => $class ) : $self->{error} );
}
}
elsif( defined( $err ) &&
Scalar::Util::blessed( $err ) &&
( scalar( @_ ) == 1 ||
( scalar( @_ ) == 2 && defined( $class ) )
) )
{
$self->{error} = ${ $pack . '::ERROR' } = ( defined( $class ) ? bless( $err => $class ) : $err );
}
# If the error provided is not an object, we call error to create one
else
{
return( $self->error( @_ ) );
view release on metacpan or search on metacpan
t/http_tiny/BrokenCookieJar.pm view on Meta::CPAN
use strict;
use warnings;
sub new {
my $class = shift;
return bless {} => $class;
}
package t::http_tiny::BrokenCookieJar2;
use strict;
use warnings;
sub new {
my $class = shift;
return bless {} => $class;
}
sub add {
}
view release on metacpan or search on metacpan
t/BrokenCookieJar.pm view on Meta::CPAN
use strict;
use warnings;
sub new {
my $class = shift;
return bless {} => $class;
}
package BrokenCookieJar2;
use strict;
use warnings;
sub new {
my $class = shift;
return bless {} => $class;
}
sub add {
}
view release on metacpan or search on metacpan
lib/HTTP/Upload/FlowJs.pm view on Meta::CPAN
$options{ simultaneousUploads } ||= 3;
$options{ mime } ||= MIME::Detect->new();
$options{ fileParameterName } ||= 'file';
$options{ allowedContentType } ||= sub { 1 };
bless \%options => $class;
};
=head2 C<< $flowjs->incomingDirectory >>
Return the incoming directory name.
view release on metacpan or search on metacpan
lib/HTTPD/Authen.pm view on Meta::CPAN
sub new {
require MIME::Base64;
my($class,$ref) = @_;
$ref ||= {};
bless $ref => $class;
}
sub parse {
my($self,$string) = @_;
$string =~ s/^Basic\s+//;
view release on metacpan or search on metacpan
lib/Hash/Persistent.pm view on Meta::CPAN
} else {
$_self->{format} = 'json' if $_self->{format} eq 'auto'; # default format for new files
$self = {};
}
bless $self => $class;
$meta->{$self} = $_self;
return $self;
}
sub commit {
view release on metacpan or search on metacpan
t/as_return.t view on Meta::CPAN
or note $@;
is(
$obj,
meta {
prop blessed => $class;
prop this => object {
call answer => 42;
};
},
"object works!"
view release on metacpan or search on metacpan
lib/IO/Uncompress/AnyInflate.pm view on Meta::CPAN
my @names = @_ ;
my $keep = ref $self ;
for my $class ( map { "IO::Uncompress::$_" } @names)
{
bless $self => $class;
my $magic = $self->ckMagic();
if ($magic)
{
#bless $self => $class;
return $magic ;
}
$self->pushBack(*$self->{HeaderPending}) ;
*$self->{HeaderPending} = '' ;
view release on metacpan or search on metacpan
lib/IO/File/WithPath.pm view on Meta::CPAN
my $io = IO::File->new($path, @_);
# symboltable hack
${*$io}{+__PACKAGE__} = $path;
bless $io => $class;
}
sub path {
my $io = shift;
${*$io}{+__PACKAGE__};
view release on metacpan or search on metacpan
lib/IO/Handle/Rewind.pm view on Meta::CPAN
sub new {
my ($class, $obj, $opt) = @_;
$obj->isa('IO::Handle') or croak "Can't wrap non-IO::Handle object: $obj";
my $self = bless {} => $class;
$self->obj($obj);
return $self;
}
view release on metacpan or search on metacpan
lib/IO/TieCombine.pm view on Meta::CPAN
my $self = {
combined => \(my $str = ''),
slots => { },
};
bless $self => $class;
}
#pod =method combined_contents
#pod
#pod This method returns the contents of all collected data.
view release on metacpan or search on metacpan
croak "Cannot open a pty" if not defined $ptyfd;
my $pty = $class->SUPER::new_from_fd( $ptyfd, "r+" );
croak "Cannot create a new $class from fd $ptyfd: $!" if not $pty;
$pty->autoflush(1);
bless $pty => $class;
my $slave = IO::Tty->new_from_fd( $ttyfd, "r+" );
croak "Cannot create a new IO::Tty from fd $ttyfd: $!" if not $slave;
$slave->autoflush(1);
view release on metacpan or search on metacpan
t/010_IOC_test.t view on Meta::CPAN
{
package FileLogger;
sub new {
my ($class, $log_file) = @_;
($log_file eq 'logfile.log') || die "Got wrong log file";
bless { log_file => $log_file } => $class;
}
package Application;
sub new {
my $class = shift;
bless { logger => undef } => $class
}
sub logger {
my ($self, $logger) = @_;
(UNIVERSAL::isa($logger, 'FileLogger')) || die "Got wrong logger type";
$self->{logger} = $logger;
view release on metacpan or search on metacpan
lib/IPC/Shareable/SharedMem.pm view on Meta::CPAN
_size => $size,
_flags => $flags,
_type => $type,
};
return bless $sh => $class;
}
sub id {
my $self = shift;
$self->{_id} = shift if @_;
view release on metacpan or search on metacpan
lib/Image/JpegMinimal.pm view on Meta::CPAN
$options{ jpegquality } ||= 20;
$options{ xmax } ||= 42;
$options{ ymax } ||= 42;
bless \%options => $class
}
sub get_imager {
my( $self, $file ) = @_;
# We should check that Imager can write jpeg images
view release on metacpan or search on metacpan
lib/JIRA/Client.pm view on Meta::CPAN
$RemoteCustomFieldValue::VERSION = '0.45';
sub new {
my ($class, $id, $values) = @_;
$values = [$values] unless ref $values;
return bless({customfieldId => $id, key => undef, values => $values} => $class);
}
package RemoteComponent;
$RemoteComponent::VERSION = '0.45';
view release on metacpan or search on metacpan
lib/JIRA/REST/Class/Mixins.pm view on Meta::CPAN
return "DateTime( $thing )";
}
if ( $top ) {
if ( reftype $thing eq 'ARRAY' ) {
chomp( my $data = Dumper( __array_copy( $thing ) ) );
return "bless( $data => $class )";
}
if ( reftype $thing eq 'HASH' ) {
chomp( my $data = Dumper( __hash_copy( $thing ) ) );
return "bless( $data => $class )";
}
return Dumper( $thing );
}
else {
my $fallback;
view release on metacpan or search on metacpan
lib/JSON/Hyper.pm view on Meta::CPAN
sub new
{
my ($class, $schema) = @_;
$schema ||= json_ref();
$schema = from_json($schema) unless ref $schema;
return bless { schema => $schema, ua => undef } => $class;
}
sub schema
{
my ($self) = @_;
view release on metacpan or search on metacpan
lib/JSON/Pointer/Context.pm view on Meta::CPAN
result => 0,
target => undef,
parent => undef,
%$args,
);
bless $args => $class;
}
sub begin {
my ($self, $token) = @_;
$self->{last_token} = $token;
view release on metacpan or search on metacpan
lib/JSV/Reference.pm view on Meta::CPAN
registered_schema_map => {},
max_recursion => 10,
%$args,
);
bless $args => $class;
}
sub resolve {
my ($self, $ref, $opts) = @_;
die 'ref value should be hash' unless ref $ref eq 'HASH';
view release on metacpan or search on metacpan
lib/Jabber/NodeFactory.pm view on Meta::CPAN
kids => [],
parent => $parent,
};
weaken($node->{parent}); # XXX
bless $node => $class;
$node->attr('xmlns' => $xmlns) if $xmlns;
return $node;
}
view release on metacpan or search on metacpan
lib/Jabber/RPC/HTTPgate.pm view on Meta::CPAN
$self->{nf} = new Jabber::NodeFactory;
$self->{c}->connect or die "Oops: ".$self->{c}->lastError;
$self->{c}->auth($self->{pass});
bless $self => $class;
return $self;
}
sub start {
view release on metacpan or search on metacpan
#######################################
sub new{
my $class = shift;
my $self = {};
bless $self => $class;
defined $_[0] or $_[0] = '';
$self->set(@_);
}
sub set{
view release on metacpan or search on metacpan
lib/KSx/IndexManager.pm view on Meta::CPAN
$arg ||= {};
$class->call_plugins(before_new => $arg);
unless ($arg->{schema} ||= $class->schema_class) {
Carp::croak "schema is mandatory for $class->new";
}
my $self = bless $arg => $class;
$self->call_self_plugins('after_new');
return $self;
}
sub path {
view release on metacpan or search on metacpan
lib/KeyedMutex/Memcached.pm view on Meta::CPAN
croak('cache value should be object and appeared add and delete methods.')
unless ( $args->{cache}
&& UNIVERSAL::can( $args->{cache}, 'add' )
&& UNIVERSAL::can( $args->{cache}, 'delete' ) );
bless $args => $class;
}
sub lock {
my ( $self, $key, $use_raii ) = @_;
view release on metacpan or search on metacpan
lib/LV/Backend/Tie.pm view on Meta::CPAN
my $caller = (caller(2))[3];
$get ||= sub { require Carp; Carp::croak("$caller is writeonly") };
$set ||= sub { require Carp; Carp::croak("$caller is readonly") };
}
bless [$get, $set] => $class;
}
sub FETCH
{
&{shift->[0]};
view release on metacpan or search on metacpan
lib/LaTeX/Easy/Templates.pm view on Meta::CPAN
'log' => {
'logger_object' => undef,
},
},
};
bless $self => $class;
# NOTE: up until now we do not have a logger, we either use STDERR or die()
# do we have a logger specified in params?
if( exists($params->{'logfile'}) && defined($params->{'logfile'}) ){