Result:
found 516 distributions and 950 files matching your query ! ( run in 1.346 )


DBIx-Class-Schema-Loader

 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 all matches for this distribution


DBIx-Connector

 view release on metacpan or  search on metacpan

lib/DBIx/Connector/Driver.pm  view on Meta::CPAN

        my ($class, $driver) = @_;
        return $DRIVERS{$driver} ||= do {
            my $subclass = __PACKAGE__ . "::$driver";
            eval "require $subclass";
            $class = $subclass unless $@;
            bless { driver => $driver } => $class;
        };
    }
}

sub _connect {

 view all matches for this distribution


DBIx-DR

 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 all matches for this distribution


DBIx-Locker

 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 all matches for this distribution



DBIx-TransactionManager-Extended

 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 all matches for this distribution


DR-Money

 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 all matches for this distribution


DR-Tarantool

 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 all matches for this distribution


Dallycot

 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 all matches for this distribution


Dancer-Plugin-Auth-Extensible

 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 all matches for this distribution


Dancer-Plugin-Redis

 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 all matches for this distribution


Data-BT-PhoneBill

 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 all matches for this distribution


Data-Bucketeer

 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 all matches for this distribution


Data-Censor

 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 all matches for this distribution


Data-CircularList

 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 all matches for this distribution


Data-Dumper-Compact

 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 encode { shift->dump(@_) }

 view all matches for this distribution


Data-DynamicValidator

 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 all matches for this distribution


Data-GUID

 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 all matches for this distribution


Data-Header-Fields

 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 all matches for this distribution


Data-Hive

 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 all matches for this distribution


Data-InputMonster

 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) = @_;

 view all matches for this distribution


Data-Microformat

 view release on metacpan or  search on metacpan

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

		$fields->{$field} = undef;
	}
	
	my $class_name = $class->class_name;
	
	my $self  = bless { _class_name => $class_name, _singulars => $singulars, %$fields, config => {%opts} }, $class;
	$self->_init();
	return $self;
}

sub _init

 view all matches for this distribution


Data-Pagination

 view release on metacpan or  search on metacpan

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

# Param int $current_page Current number of page

sub new {
    my ($class, $total_entries, $entries_per_page, $pages_per_set, $current_page) = @_;

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

    # total number of entries (>= 1) (copied from arguments)
    $self->{total_entries} = $total_entries;

    # number of entries per page (>= 1) (copied from arguments)

 view all matches for this distribution


Data-Plist

 view release on metacpan or  search on metacpan

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


=cut

sub new {
    my $class = shift;
    return bless { data => undef, @_ } => $class;
}

=head2 collapse $data

Takes an array of serialized data C<$data>. Recursively

 view all matches for this distribution


Data-Polipo

 view release on metacpan or  search on metacpan

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

	$fh->seek ($offset, SEEK_SET);
    }

    my $d = bless {} => $ns;
    my $obj = sub {wantarray ? ($fh, $res) : $d};
    bless $obj => $class;
}

sub open {
    return ($_[0]->())[0];
}

 view all matches for this distribution


Data-Rx

 view release on metacpan or  search on metacpan

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

    prefix    => { },
    handler   => { },
    sort_keys => !!$arg->{sort_keys},
  };

  bless $self => $class;

  $self->register_type_plugin($_) for @plugins;

  $self->add_prefix($_ => $arg->{prefix}{ $_ }) for keys %{ $arg->{prefix} };

 view all matches for this distribution


Data-TagHive

 view release on metacpan or  search on metacpan

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



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

  return bless { state => {} } => $class;
}

my $tagname_re  = qr{ [a-z] [-a-z0-9_]* }x;
my $tagvalue_re = qr{ [-a-z0-9_]+ }x;
my $tagpair_re  = qr{ $tagname_re (?::$tagvalue_re)? }x;

 view all matches for this distribution


Data-Tumbler

 view release on metacpan or  search on metacpan

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

    my %defaults = (
        consumer    => sub { confess "No Data::Tumbler consumer defined" },
        add_path    => sub { my ($path,    $name ) = @_; return [ @$path,    $name  ] },
        add_context => sub { my ($context, $value) = @_; return [ @$context, $value ] },
    );
    my $self = bless \%defaults => $class;

    for my $attribute (qw(consumer add_path add_context)) {
        next unless exists $args{$attribute};
        $self->$attribute(delete $args{$attribute});
    }

 view all matches for this distribution


( run in 1.346 second using v1.00-cache-1.14-grep-28634ff-cpan-4d46879620f )