view release on metacpan or search on metacpan
lib/Amibroker/OLE/Interface.pm view on Meta::CPAN
croak("No Database path supplied to Amibroker : $!\n")
unless $self->{dbpath};
croak("Invalid Database path to Amibroker : $!\n")
unless -d $self->{dbpath};
bless $self, $class if defined $self;
return $self;
}
=head2 start_amibroker_engine()
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
t/009_csrf_defender.t view on Meta::CPAN
sub load_config { +{} }
package MyApp::Web::View;
sub new {
bless {}, shift;
}
sub render {
'<!doctype html>
<html>
<form method="post" action="/do">
view release on metacpan or search on metacpan
t/04_json_encoder.t view on Meta::CPAN
);
}
return $c->create_response(404, [], []);
}
__PACKAGE__->load_plugins('Web::ChromeLogger' => {
json_encoder => JSON->new->ascii(1)->convert_blessed,
});
}
my $mech = Test::WWW::Mechanize::PSGI->new(app => MyApp::Web->to_app);
view release on metacpan or search on metacpan
lib/Amon2/Plugin/Web/CpanelJSON.pm view on Meta::CPAN
use strict;
use warnings;
use Amon2::Util ();
use Cpanel::JSON::XS ();
use Scalar::Util qw(blessed);
use HTTP::SecureHeaders;
our $VERSION = "0.01";
my %DEFAULT_CONFIG = (
lib/Amon2/Plugin/Web/CpanelJSON.pm view on Meta::CPAN
json => {
ascii => !!1, # for security
},
# for convenience
unbless_object => undef,
status_code_field => undef,
# for compatibility options
defence_json_hijacking_for_legacy_browser => !!0,
);
lib/Amon2/Plugin/Web/CpanelJSON.pm view on Meta::CPAN
}
return sub {
my ($data, $spec) = @_;
if (my $unbless_object = $conf->{unbless_object}) {
if (blessed($data)) {
$data = $unbless_object->($data, $spec);
}
}
my $output = $json->encode($data, $spec);
lib/Amon2/Plugin/Web/CpanelJSON.pm view on Meta::CPAN
=item name
Name of method. Default: 'render_json'
=item unbless_object
Default: undef
This option is preprocessing coderef encoding an blessed object in JSON.
For example, the code using L<Object::UnblessWithJSONSpec> is as follows:
use Object::UnblessWithJSONSpec ();
__PACKAGE__->load_plugins(
'Web::CpanelJSON' => {
unbless_object => \&Object::UnblessWithJSONSpec::unbless_with_json_spec,
}
);
...
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/Amon2/Plugin/Web/Woothee.pm view on Meta::CPAN
use warnings;
use Woothee;
sub new {
my ($class, %args) = @_;
bless \%args, $class;
}
sub user_agent { $_[0]->{user_agent} }
sub name { $_[0]->_get('name') }
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/Amon2.pm view on Meta::CPAN
}
sub new {
my $class = shift;
my %args = @_ == 1 ? %{ $_[0] } : @_;
bless { %args }, $class;
}
# For CLI.
sub bootstrap {
my $class = shift;
view release on metacpan or search on metacpan
lib/Amp/Util/Strings.pm view on Meta::CPAN
sub json_encode {
my $self = shift;
my $string = shift;
my $opts = shift;
my $json = JSON->new->allow_nonref->allow_blessed->utf8;
if ($opts->{pretty}) {
$json->pretty(1);
}
if ($opts->{indent}) {
$json->indent(1);
lib/Amp/Util/Strings.pm view on Meta::CPAN
}
sub json_decode {
my $self = shift;
my $string = shift;
my $json = JSON->new->allow_nonref->allow_blessed->utf8;
my $data;
if (defined $string) {
$data = $json->decode($string);
}
return $data;
view release on metacpan or search on metacpan
lib/Analizo/Batch.pm view on Meta::CPAN
use parent qw( Analizo::Filter::Client );
sub new {
my ($class, @options) = @_;
return bless { @options }, $class;
}
sub next {
my ($self) = @_;
my $next_job = $self->fetch_next();
view release on metacpan or search on metacpan
if ($vars->{type} eq "mysql") {
$conn = DBI->connect("DBI:$vars->{type}:$vars->{db}:$vars->{host}",
$vars->{username},$vars->{passwd})
or die DBI::errstr;
bless {
conn => $conn,
type => $vars->{type},
error => undef,
pre => undef,
}, $self;
view release on metacpan or search on metacpan
Template.pm view on Meta::CPAN
# Inicia modulo
sub new {
my($self,$templ_dir,$to_file) = @_;
# Grava dados
bless {
'TEMPL_DIR' => $templ_dir,
}, $self;
}
# Processa página
view release on metacpan or search on metacpan
lib/Anansi/Actor.pm view on Meta::CPAN
}
=head1 DESCRIPTION
This is a dynamic usage module definition that manages the loading of a required
namespace and blessing of an object of the namespace as required. Uses L<Fcntl>,
L<File::Find>, L<File::Spec::Functions> and L<FileHandle>.
=cut
lib/Anansi/Actor.pm view on Meta::CPAN
=over 4
=item BLESS I<(String, Optional)>
The name of the subroutine within the namespace that creates a blessed object of
the namespace. Defaults to I<"new">.
=item IMPORT I<(Array, Optional)>
An array of the names to import from the loading module.
lib/Anansi/Actor.pm view on Meta::CPAN
The namespace of the module to load.
=item PARAMETERS I<(Array B<or> Hash, Optional)>
Either An array or a hash of the parameters to pass to the blessing subroutine.
=back
=back
lib/Anansi/Actor.pm view on Meta::CPAN
return if(ref($import) !~ /^$/);
return if($import !~ /^[a-zA-Z_]+[a-zA-Z0-9_]*$/);
}
}
my $package = $parameters{PACKAGE};
my $bless = $parameters{BLESS};
my $self;
eval {
(my $file = $package) =~ s/::/\//g;
require $file.'.pm';
if(defined($parameters{IMPORT})) {
$package->import(@{$parameters{IMPORT}});
} else {
$package->import();
}
if(defined($parameters{PARAMETERS})) {
$self = $package->$bless(@{$parameters{PARAMETERS}});
} else {
$self = $package->$bless();
}
1;
} or do {
my $error = $@;
return ;
view release on metacpan or search on metacpan
lib/Anansi/Class.pm view on Meta::CPAN
$class = ref($class) if(ref($class) !~ /^$/);
my $self = {
NAMESPACE => $class,
PACKAGE => __PACKAGE__,
};
bless($self, $class);
my $objectManager = Anansi::ObjectManager->new();
$objectManager->register($self);
$self->initialise(%parameters);
return $self;
}
lib/Anansi/Class.pm view on Meta::CPAN
An object of this namespace.
=item parameters I<(Array, Optional)>
An array of strings containing the names of blessed objects currently in use by
this object.
=back
Releases a module instance object to enable it to be destroyed.
lib/Anansi/Class.pm view on Meta::CPAN
An object of this namespace.
=item parameters I<(Array B<or> String, Optional)>
A string or an array of strings containing the names of blessed objects
currently in use by this object.
=back
Either returns an array of strings containing the names of the blessed objects
currently in use by this object or the blessed object represented by the single
specified name or whether the specified names represent blessed objects with a
B<1> I<(one)> for yes and B<0> I<(zero)> for no.
=cut
view release on metacpan or search on metacpan
lib/Anansi/Library.pm view on Meta::CPAN
is the name of a generated method of the closure's encapsulating object that
runs the subroutine and passes it a reference to the closure.
=back
Creates both an anonymous hash to act as a closure variable and a blessed object
as the closure's encapsulating accessor. Supplied data is either stored within
the closure using the key as the name or in the case of a subroutine, accessed
by an auto-generated method of that name. Closure is achieved by passing a
reference to the anonymous hash to the supplied subroutines via the
auto-generated methods.
lib/Anansi/Library.pm view on Meta::CPAN
}
} else {
${$CLOSURE}{$key} = $parameters{$key};
}
}
return bless($ABSTRACT, $abstract);
}
=head2 abstractObject
lib/Anansi/Library.pm view on Meta::CPAN
the object and the value is it's data or when the value is a subroutine the key
is the name of a namespace method.
=back
Creates a blessed object. Supplied data is either stored within the object or
in the case of a subroutine as a namespace method of that name.
=cut
lib/Anansi/Library.pm view on Meta::CPAN
}
} else {
$ABSTRACT->{$key} = $parameters{$key};
}
}
return bless($ABSTRACT, $abstract);
}
=head2 hasAncestor
view release on metacpan or search on metacpan
lib/Anansi/ObjectManager.pm view on Meta::CPAN
$class = ref($class) if(ref($class) !~ /^$/);
my $self = {
NAMESPACE => $class,
PACKAGE => __PACKAGE__,
};
bless($self, $class);
my $objectManager = Anansi::ObjectManager->new();
$objectManager->register($self);
return $self;
}
lib/Anansi/ObjectManager.pm view on Meta::CPAN
if(!defined($NAMESPACE)) {
my $self = {
NAMESPACE => $class,
PACKAGE => __PACKAGE__,
};
$NAMESPACE = bless($self, $class);
$NAMESPACE->initialise(%parameters);
} else {
$NAMESPACE->reinitialise(%parameters);
}
return $NAMESPACE;
view release on metacpan or search on metacpan
lib/Anansi/Singleton.pm view on Meta::CPAN
if(!defined($NAMESPACE->{$class})) {
my $self = {
NAMESPACE => $class,
PACKAGE => __PACKAGE__,
};
$NAMESPACE->{$class} = bless($self, $class);
my $objectManager = Anansi::ObjectManager->new();
$objectManager->register($NAMESPACE->{$class});
$NAMESPACE->{$class}->initialise(%parameters);
} else {
my $objectManager = Anansi::ObjectManager->new();
view release on metacpan or search on metacpan
Efun/Core/Core.pm view on Meta::CPAN
# will not inherit or issue a warning if redefined.
# Note that we don't actually register all available efuns. We
# register only those which are visible as efuns to the LPC code.
# We may have more efuns, an individual efun typecheck_call method
# may decide to rebless the node into a different efun class.
# For example, map => map_array or map_mapping. In this way we
# can use the Perl object oriented dispatch mechanism to speed up
# many operations where a pure Perl conditional would be slower.
require DynaLoader;
view release on metacpan or search on metacpan
lib/Android/ADB.pm view on Meta::CPAN
sub new {
my ($class, %args) = @_;
$args{path} //= $ENV{ADB};
$args{path} //= 'adb';
$args{args} //= [];
bless \%args, $class
}
sub run {
my ($self, @args) = @_;
my ($out, $in);
view release on metacpan or search on metacpan
lib/Android/Build.pm view on Meta::CPAN
}
#1 Methods and attributes
sub new() #S Create a new build.
{bless{action =>qq(run),
activity =>qw(Activity),
device =>qq(emulator-5554),
home =>$home,
icon =>'icon.png',
log =>[],
view release on metacpan or search on metacpan
lib/Android/ElectricSheep/Automator.pm view on Meta::CPAN
'apps' => {},
# legacy, no worries.
'apps-roundabout-way' => 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 __PACKAGE__."${whoami} (via $parent), line ".__LINE__." : error, call to init() has failed.\n"; return undef }