view release on metacpan or search on metacpan
lib/UR/Object/Type/Initializer.pm view on Meta::CPAN
# only do this when the classes match
# when they do not match, the super-class has already called this by delegating to the correct subclass
$class_name::VERSION = 2.0; # No BumpVersion
my $self = bless { id => $class_name, %$desc }, $meta_class_name;
$UR::Context::all_objects_loaded->{$meta_class_name}{$class_name} = $self;
my $full_name = join( '::', $class_name, '__meta__' );
Sub::Install::reinstall_sub({
into => $class_name,
view release on metacpan or search on metacpan
lib/URI/Nested.pm view on Meta::CPAN
$uri->scheme($scheme) if $scheme && !$uri->scheme;
if ( my $nested_class = $class->nested_class ) {
bless $uri => $nested_class unless $uri->isa($nested_class);
}
bless [ $prefix => $uri ] => $class;
}
sub new_abs {
my ($class, $uri, $base) = @_;
$uri = URI->new($uri);
lib/URI/Nested.pm view on Meta::CPAN
my ($class, $scheme, $str) = @_;
my $uri = URI->new($str);
if ( my $nested_class = $class->nested_class ) {
bless $uri => $nested_class unless $uri->isa($nested_class);
}
bless [ $scheme, $uri ] => $class;
}
sub nested_uri { shift->[1] }
sub scheme {
view release on metacpan or search on metacpan
lib/URI/Template.pm view on Meta::CPAN
sub new {
my $class = shift;
my $templ = shift;
$templ = '' unless defined $templ;
my $self = bless { template => $templ, _vars => {} } => $class;
$self->_study;
return $self;
}
view release on metacpan or search on metacpan
lib/URI/mssql.pm view on Meta::CPAN
: die "Unknown driver: $driver\n";
eval "require $class" or die;
# Make a copy blessed into the alternate class to get its DSN.
my $alt = bless \"$self" => $class;
return $alt->dbi_dsn;
}
1;
view release on metacpan or search on metacpan
lib/URI/_duri_tdb.pm view on Meta::CPAN
}
sub _new_from_string
{
my ($class, $str) = @_;
my $self = bless \$str => $class;
$self->_deconstruct;
return $self;
}
sub _new_from_hashref
{
my ($class, $hashref) = @_;
my $str = $class->_preferred_scheme . ':2001:urn:example:1';
my $self = bless \$str => $class;
if ($hashref->{datetime_string})
{ $self->datetime_string($self->{datetime_string}) }
elsif ($hashref->{datetime})
{ $self->datetime($self->{datetime}) }
view release on metacpan or search on metacpan
lib/Ubic/Service/InitScriptWrapper.pm view on Meta::CPAN
unless (-e $init) {
die "Init script $init not found";
}
return bless { init => $init } => $class;
}
sub start_impl {
my $self = shift;
system("$self->{init} start >/dev/null");
view release on metacpan or search on metacpan
lib/Ubic/Service/Memcached.pm view on Meta::CPAN
unless (defined $PID_DIR) {
croak "pidfile parameter not defined, define it or set /module/Ubic/Service/Memcached/pid_dir configuration option";
}
$params->{pidfile} = "$PID_DIR/$params->{port}.pid";
}
return bless $params => $class;
}
sub start_impl {
my $self = shift;
view release on metacpan or search on metacpan
lib/Ubic/Service/MongoDB.pm view on Meta::CPAN
}
if (!$params->{gen_cfg}) {
$params->{gen_cfg} = "/tmp/$self->{daemon}." . $self->{port} . '.conf';
}
return bless $params => $class;
}
sub bin {
my $self = shift;
view release on metacpan or search on metacpan
lib/Ubic/Service/Plack.pm view on Meta::CPAN
pidfile => { type => SCALAR, optional => 1 },
cwd => { type => SCALAR, optional => 1 },
env => { type => HASHREF, optional => 1 },
});
return bless $params => $class;
}
sub pidfile {
my $self = shift;
return $self->{pidfile} if defined $self->{pidfile};
view release on metacpan or search on metacpan
lib/Ubic/Service/ServerStarter.pm view on Meta::CPAN
proxy_logs => { type => BOOLEAN, optional => 1 },
pidfile => { type => SCALAR, optional => 1 },
cwd => { type => SCALAR, optional => 1 },
});
return bless $params => $class;
}
sub pidfile {
my ($self) = @_;
return $self->{pidfile} if defined $self->{pidfile};
view release on metacpan or search on metacpan
lib/Ubic/Service/ZooKeeper.pm view on Meta::CPAN
}
if (!$params->{gen_cfg}) {
$params->{gen_cfg} = catfile('/tmp', 'zoo.' . $clientPort . '.cfg');
}
return bless $params => $class;
}
sub bin {
my $self = shift;
view release on metacpan or search on metacpan
lib/Ubic.pm view on Meta::CPAN
$self->{status_dir} = "$self->{data_dir}/status";
$self->{lock_dir} = "$self->{data_dir}/lock";
$self->{tmp_dir} = "$self->{data_dir}/tmp";
$self->{service_cache} = {};
return bless $self => $class;
}
sub start($$) {
my $self = _obj(shift);
my ($name) = validate_pos(@_, $validate_service);
view release on metacpan or search on metacpan
t/lib/IPCToken.pm view on Meta::CPAN
sub new {
my ($class, $initial) = @_;
my $sem = IPC::Semaphore->new(IPC_PRIVATE, 1, S_IRUSR | S_IWUSR | IPC_CREAT);
my $obj = bless {sem => $sem} => $class;
$obj->inc($initial) if $initial;
return $obj;
}
sub inc {
view release on metacpan or search on metacpan
Close($self);
return;
};
};
return bless $self => $class;
};
sub emergency($$@)
{ return Message(shift, LOG_EMERG(), @_); };
sub alert($$@)
view release on metacpan or search on metacpan
ok(1);
package tiescalar;
sub TIESCALAR {
my ($class, $instance) = @_;
return bless \$instance => $class;
}
sub FETCH { return ${$_[0]}++ }
sub STORE { return ${$_[0]} = $_[1] }
sub DESTROY { undef ${$_[0]} }
view release on metacpan or search on metacpan
lib/Unicode/Precis.pm view on Meta::CPAN
sub new {
my $class = shift;
my %options = @_;
bless {%options} => $class;
}
sub compare {
my $self = shift;
my $stringA = $self->enforce(shift);
view release on metacpan or search on metacpan
lib/Unicode/Unihan.pm view on Meta::CPAN
sub new($;){
my $class = shift;
my $dir = __FILE__; $dir =~ s/\.pm//o;
-d $dir or die "DB Directory $dir nonexistent!";
return bless { '_dir_' => $dir, @_ } => $class;
}
sub load($$){
my ($self, $name) = @_;
if ($self->{'-savemem'}){
view release on metacpan or search on metacpan
lib/Unknown/Values/Instance.pm view on Meta::CPAN
confess("Attempt to coerce unknown value to a string");
}
sub new {
my $class = shift;
my $unknown = bless {} => $class;
return $unknown;
}
# this helps to prevent some infinite loops
sub bool {$CORE_UNKNOWN}
view release on metacpan or search on metacpan
lib/Util/Underscore/CallStackFrame.pm view on Meta::CPAN
package DB; ## no critic (ProhibitMUltiplePackages)
my @caller = CORE::caller($level + 1);
return if not @caller;
push @caller, [@DB::args]; ## no critic (ProhibitPackageVars)
return bless \@caller => $class;
}
## no critic (ProhibitBuiltinHomonyms)
sub package { shift()->[0] }
view release on metacpan or search on metacpan
lib/Variable/Declaration/Info.pm view on Meta::CPAN
use warnings;
sub new {
my $class = shift;
my %args = @_;
bless \%args => $class;
}
sub declaration { $_[0]->{declaration} }
sub type { $_[0]->{type} }
sub attributes { $_[0]->{attributes} }
view release on metacpan or search on metacpan
lib/Version/Requirements.pm view on Meta::CPAN
#pod
#pod =cut
sub new {
my ($class) = @_;
return bless {} => $class;
}
sub _version_object {
my ($self, $version) = @_;
view release on metacpan or search on metacpan
lib/Version/Semantic.pm view on Meta::CPAN
my %tmp = @_;
for ( keys %tmp ) {
delete $tmp{ $_ } unless defined $tmp{ $_ }
}
bless { ref $invocant ? %$invocant : (), %tmp } => $class
};
delete $self->{ version_core };
my %params = map { $_ => 1 } $self->_init;
view release on metacpan or search on metacpan
lib/Vim/Helper/Plugin.pm view on Meta::CPAN
_gen_accessor( $caller, $_ ) for keys %config_keys;
}
sub new {
my $class = shift;
return bless {} => $class;
}
sub args { {} }
sub opts { {} }
sub vimrc { "" }
view release on metacpan or search on metacpan
WSDLTest.pm view on Meta::CPAN
sub new {
my $class = shift;
my $param = shift;
my $self = { 'param1' => $param->{param1},
'param2' => $param->{param2} };
return bless $self => $class;
}
# test1($msg)
#
view release on metacpan or search on metacpan
lib/WSRF/Lite.pm view on Meta::CPAN
ref $_[1] ? return $_[1]
: Carp::croak $_[0]->transport->is_success ? $_[1]
: $_[0]->transport->status;
},
};
bless $self => $class;
$self->on_nonserialized( $self->on_nonserialized
|| $self->serializer->on_nonserialized );
SOAP::Trace::objects('()');
}
view release on metacpan or search on metacpan
lib/WWW/Connpass/Event/Participant.pm view on Meta::CPAN
use strict;
use warnings;
sub new {
my $class = shift;
bless {@_} => $class;
}
sub answer {
my ($self, $index) = @_;
return $self->{"answer_$index"};
view release on metacpan or search on metacpan
lib/WWW/Deezer.pm view on Meta::CPAN
debug => 0,
};
$self->{ua}->agent("WWW::Deezer v".$VERSION);
bless $self => $class;
return $self;
}
sub album {
my ($self, $p) = @_;
view release on metacpan or search on metacpan
lib/WWW/Mechanize/Chrome/Webshot.pm view on Meta::CPAN
# these are the final mech params,
# from confighash and user-specified $params
'WWW::Mechanize::Chrome-params' => undef,
}
};
bless $self => $class;
# this will read configuration and create confighash,
# make logger, verbosity,
# instantiate any objects we need here etc.
if( $self->init($params) ){ print STDERR "${whoami} (via $parent), line ".__LINE__." : error, call to init() has failed.\n"; return undef }
view release on metacpan or search on metacpan
lib/WWW/Mechanize/PhantomJS.pm view on Meta::CPAN
if ( $@ ) {
kill 9, delete $options{ pid } if $options{ kill_pid };
die $@;
}
my $self= bless \%options => $class;
$self->eval_in_phantomjs(<<'JS');
var page= this;
page.errors= [];
page.alerts= [];
view release on metacpan or search on metacpan
lib/WWW/Moviepilot.pm view on Meta::CPAN
=cut
sub new {
my ($class, $args) = @_;
my $self = bless {} => $class;
$self->{api_key} = $args->{api_key} || croak "api_key is missing at " . __PACKAGE__ . "->new()";
$self->{host} = $args->{host} || 'www.moviepilot.de';
$self->{ua} = $args->{ua} || LWP::UserAgent->new;
$self->{host} = 'http://' . $self->{host} unless $self->{host} =~ m{^http://};