view release on metacpan or  search on metacpan

t/CookieTest.pm  view on Meta::CPAN

    $jar->fetch || do
    {
        $r->log_error( "$class: Error fetching cookies from http request: ", $jar->error );
        return( Apache2::Const::HTTP_INTERNAL_SERVER_ERROR );
    };
    my $self = bless( { request => $r, jar => $jar, debug => int( $r->dir_config( 'COOKIES_DEBUG' ) ) } => $class );
    my $code = $self->can( $path );
    if( !defined( $code ) )
    {
        $r->log_error( "No method \"$path\" for testing." );
        return( Apache2::Const::DECLINED );

 view release on metacpan or  search on metacpan

lib/Copy/From/Git.pm  view on Meta::CPAN

		subdir => '.',
		user   => getlogin(),
		@_,
	};

	return bless $args => $class;
}

sub clone {
	my ($self, $target) = @_;

 view release on metacpan or  search on metacpan

CAST5_PP.pm  view on Meta::CPAN

$VERSION = "1.04";

sub new {
  my ($class, $key) = @_;
  my $cast5 = { };
  bless $cast5 => $class;
  $cast5->init($key) if defined $key;
  return $cast5;
} # new

sub blocksize { return 8  }

 view release on metacpan or  search on metacpan

lib/DB/Color/Highlight.pm  view on Meta::CPAN

    *Syntax::Highlight::Engine::Kate::Template::logwarning = sub { };
}

sub new {
    my ( $class, $args ) = @_;
    my $self = bless {} => $class;
    $self->_initialize($args);
    return $self;
}

sub _initialize {

 view release on metacpan or  search on metacpan

local/lib/perl5/x86_64-linux/DBI.pm  view on Meta::CPAN

sub _rebless {
    my $dbh = shift;
    my ($outer, $inner) = DBI::_handles($dbh);
    my $class = shift(@_).'::db';
    bless $inner => $class;
    bless $outer => $class; # outer last for return
}


sub _set_isa {
    my ($classes, $topclass) = @_;

 view release on metacpan or  search on metacpan

DBI.pm  view on Meta::CPAN

sub _rebless {
    my $dbh = shift;
    my ($outer, $inner) = DBI::_handles($dbh);
    my $class = shift(@_).'::db';
    bless $inner => $class;
    bless $outer => $class; # outer last for return
}


sub _set_isa {
    my ($classes, $topclass) = @_;

 view release on metacpan or  search on metacpan

t/dbixcl_common_tests.pm  view on Meta::CPAN

    # Only MySQL uses this
    $self->{innodb} ||= '';

    $self->{verbose} = $ENV{TEST_VERBOSE} || 0;

    return bless $self => $class;
}

sub skip_tests {
    my ($self, $why) = @_;

 view release on metacpan or  search on metacpan

lib/DBIx/Class/Schema/Loader/Base.pm  view on Meta::CPAN

    # don't lose undef options
    for (values %$self) {
        $_ = 0 unless defined $_;
    }

    bless $self => $class;

    if (my $config_file = $self->config_file) {
        my $config_opts = do $config_file;

        croak "Error reading config from $config_file: $@" if $@;

 view release on metacpan or  search on metacpan

lib/DBIx/Class/Exception.pm  view on Meta::CPAN

    else {
        $msg = Carp::longmess($msg);
    }

    my $self = { msg => $msg };
    bless $self => $class;

    die $self;
}

=head2 rethrow

 view release on metacpan or  search on metacpan

lib/DBIx/DR.pm  view on Meta::CPAN

    my ($class, $method) = camelize $iterator;

    return $class->$method(
        $res, -item => $item, -noitem_iter => $args->{-noitem_iter}) if $method;
    return bless $res => $class;
}

sub single {
    my ($self, $sql, $args, $item) = &_dr_extract_args_ep;
    my $req = $self->{"private_DBIx::DR_template"}->sql_transform(

 view release on metacpan or  search on metacpan

lib/DBIx/Locker.pm  view on Meta::CPAN

  Carp::confess("RaiseError cannot be disabled")
    if exists $dbi_attr->{RaiseError} and not $dbi_attr->{RaiseError};

  $dbi_attr->{RaiseError} = 1;

  return bless $guts => $class;
}

#pod =method default_dbi_args
#pod
#pod =method default_table

 view release on metacpan or  search on metacpan

lib/DBIx/Schema/Annotate/Driver/Base.pm  view on Meta::CPAN

    args(
        my $class => 'ClassName',
        my $dbh,
    );

    bless { dbh => $dbh } => $class;
}

 view release on metacpan or  search on metacpan

lib/DBIx/TransactionManager/Extended/Txn.pm  view on Meta::CPAN

sub new {
    my ($class, $manager, %args) = @_;
    $args{caller} = [caller(1)] unless $args{caller};
    my $guard = DBIx::TransactionManager::ScopeGuard->new($manager => %args);
    return bless [$guard, $manager] => $class;
}

sub rollback { shift->[0]->rollback }
sub commit   { shift->[0]->commit }

 view release on metacpan or  search on metacpan

lib/DR/Money.pm  view on Meta::CPAN

    if (ref $class) {
        $self = bless [ '+', 0, 0, '0.00' ] => ref $class;
        $self->_assign( $class );
    } else {
        $self = bless [ '+', 0, 0, '0.00' ] => $class;
    }

    $self->_assign($value) if @_ > 1;
    return $self;
}

 view release on metacpan or  search on metacpan

lib/DR/Tarantool/Iterator.pm  view on Meta::CPAN

        if (my $m = $self->item_constructor) {
            return $class->$m( $item, $no, $self );
        }

        return bless $item => $class if ref $item;
        return bless \$item => $class;
    }

    return $self->{items}[ $no ];
}

 view release on metacpan or  search on metacpan

lib/Dallycot/AST.pm  view on Meta::CPAN

sub new {
  my ($class) = @_;

  $class = ref $class || $class;

  return bless [] => $class;
}

=method simplify

Simplifies the node and any child nodes.

 view release on metacpan or  search on metacpan

lib/Dancer/Plugin/Auth/Extensible/Provider/Base.pm  view on Meta::CPAN

sub new {
    my ($class, $realm_settings) = @_;
    my $self = {
        realm_settings => $realm_settings,
    };
    return bless $self => $class;
}

sub realm_settings { shift->{realm_settings} || {} }

 view release on metacpan or  search on metacpan

t/lib/FakeRedis.pm  view on Meta::CPAN

    our $VERSION = 2;
    our $AUTOLOAD;

    sub new {
        my ( $class, %args ) = @_;
        bless \%args => $class;
    }

    sub AUTOLOAD {
        shift;
        my $name = $AUTOLOAD;

 view release on metacpan or  search on metacpan

lib/Data/BT/PhoneBill.pm  view on Meta::CPAN

    *{$f} = sub { shift->{$f} };
}

sub new {
  my ($class, @data) = @_;
  bless { map { $fields[$_] => $data[$_] } 0..$#fields } => $class;
}

sub date {
  my @parts = split /\//, shift->_date;
  return Date::Simple->new(@parts[2,1,0]);

 view release on metacpan or  search on metacpan

lib/Data/Bucketeer.pm  view on Meta::CPAN

  my $guts = bless {
    buckets => $buckets,
    picker  => $class->__picker_for($type),
  };

  return bless $guts => $class;
}

my %operator = (
  '>' => sub {
    my ($self, $this) = @_;

 view release on metacpan or  search on metacpan

lib/Data/Censor.pm  view on Meta::CPAN

sub new {
    my $class = shift;
    my %args = @_;

    my $self = bless {} => $class;

    if (ref $args{sensitive_fields} eq 'Regexp') {
        $self->{censor_regex} = $args{sensitive_fields};
    } elsif (ref $args{sensitive_fields} eq 'ARRAY') {
        $self->{is_sensitive_field} = { 

 view release on metacpan or  search on metacpan

lib/Data/CircularList.pm  view on Meta::CPAN

        my %args = @_;
        my $self = {
            name => $args{'name'},
            length => length($args{'name'}),
        };
        bless $self => $class;
        $self->length(length($args{'name'}));
        return $self;
    }

    # sort by length of name, and name

 view release on metacpan or  search on metacpan

lib/JSON/Dumper/Compact.pm  view on Meta::CPAN

sub _format_blessed {
  my ($self, $payload) = @_;
  my ($content, $class) = @$payload;
  $self->_format([ hash => [
    [ '__bless__' ],
    { '__bless__' => [ array => [ [ string => $class ], $content ] ] },
  ] ]);
}

sub _format_ref {
  my ($self, $payload) = @_;

 view release on metacpan or  search on metacpan

lib/Data/DynamicValidator.pm  view on Meta::CPAN

    my $self = {
        _data   => $data,
        _errors => [],
        _bases  => [],
    };
    return bless $self => $class;
}


sub validate {
    my ($self, %args) = @_;

 view release on metacpan or  search on metacpan

lib/Data/GUID.pm  view on Meta::CPAN

sub from_data_uuid {
  my ($class, $value) = @_;

  my $length = do { use bytes; defined $value ? length $value : 0; };
  Carp::croak "given value is not a valid Data::UUID value" if $length != 16;
  bless \$value => $class;
}

#pod =head1 IDENTIFYING GUIDS
#pod
#pod =head2 string_guid_regex

 view release on metacpan or  search on metacpan

lib/Data/Header/Fields.pm  view on Meta::CPAN

	}
	else {
		$value = { $value, @_ };
	}
	
	my $self = bless { 'parent' => $class->_default_parent, %{$value} }, $class;
	
	weaken($self->{'parent'})
		if (ref($self->{'parent'}) && !isweak($self->{'parent'}));
	
	return $self;

 view release on metacpan or  search on metacpan

lib/Data/Hive.pm  view on Meta::CPAN

  $arg ||= {};

  my @path = @{ $arg->{path} || [] };

  my $class = ref $invocant ? ref $invocant : $invocant;
  my $self = bless { path => \@path } => $class;

  if ($arg->{store_class}) {
    die "don't use 'store' with 'store_class' and 'store_args'"
      if $arg->{store};

 view release on metacpan or  search on metacpan

lib/Data/InputMonster.pm  view on Meta::CPAN

  my $fields = $arg->{fields};

  $class->_assert_field_spec_ok($_) for values %$fields;

  bless { fields => $fields } => $class;
}

sub _assert_field_spec_ok {
  my ($self, $spec) = @_;