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


Moos

 view release on metacpan or  search on metacpan

lib/Moos.pm  view on Meta::CPAN

}

# Not sure why it is necessary to override &new here...
sub new {
    my $class = shift;
    my $self = bless $class->BUILDARGS(@_) => $class;
    $self->Moos::Object::BUILDALL;
    return $self;
}

sub BUILDARGS {

 view all matches for this distribution


Moose

 view release on metacpan or  search on metacpan

lib/Class/MOP/Instance.pm  view on Meta::CPAN

    $self->inline_set_slot_value($instance, $slot_name, $self->inline_slot_access($instance, $slot_name));
}

sub inline_rebless_instance_structure {
    my ($self, $instance, $class_variable) = @_;
    "bless $instance => $class_variable";
}

sub _inline_get_mop_slot {
    my ($self, $instance) = @_;
    $self->inline_get_slot_value($instance, $RESERVED_MOP_SLOT);

 view all matches for this distribution


MooseX-ArrayRef

 view release on metacpan or  search on metacpan

lib/MooseX/ArrayRef/Meta/Instance.pm  view on Meta::CPAN

}

override create_instance => sub {
	my $meta  = shift;
	my $class = $meta->associated_metaclass;
	bless [ (EMPTY) x $meta->slot_count ] => $class->name;
};

override clone_instance => sub {
	my ($meta, $instance) = @_;
	my $class = $meta->associated_metaclass;
	bless [ @{$instance} ] => $class->name;
};

override get_slot_value => sub {
	my ($meta, $instance, $slot_name) = @_;
	my $value = $instance->[ $meta->slot_index($slot_name) ];

 view all matches for this distribution


MooseX-ClosedHash

 view release on metacpan or  search on metacpan

lib/MooseX/ClosedHash/Meta/Instance.pm  view on Meta::CPAN

}

override create_instance => sub {
	my $meta  = shift;
	my $class = $meta->associated_metaclass;
	bless($meta->get_fresh_closure => $class->name);
};

override clone_instance => sub {
	my ($meta, $instance) = @_;
	my $class = $meta->associated_metaclass;
	bless $meta->get_fresh_closure($instance->(clone => ())) => $class->name;
};

override get_slot_value => sub {
	my ($meta, $instance, $slot_name) = @_;
	$instance->(fetch => $slot_name);

 view all matches for this distribution


MooseX-CoverableModifiers

 view release on metacpan or  search on metacpan

inc/Class/MOP/Instance.pm  view on Meta::CPAN

    $self->inline_set_slot_value($instance, $slot_name, $self->inline_slot_access($instance, $slot_name));
}

sub inline_rebless_instance_structure {
    my ($self, $instance, $class_variable) = @_;
    "bless $instance => $class_variable";
}

sub _inline_get_mop_slot {
    my ($self, $instance) = @_;
    $self->inline_get_slot_value($instance, $RESERVED_MOP_SLOT);

 view all matches for this distribution


MooseX-InsideOut

 view release on metacpan or  search on metacpan

t/lib/InsideOut/BaseArray.pm  view on Meta::CPAN

use constant FOO => 0;

sub new {
  my $class = shift;
  my %p = @_;
  my $self = bless [] => $class;
  $self->[FOO] = $p{base_foo};
  return $self;
}

sub base_foo {

 view all matches for this distribution


MooseX-NonMoose

 view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN


package Foo;

sub new {
    my $class = shift;
    bless { _class => $class }, $class;
}

package Foo::Moose;
use Moose;
use MooseX::NonMoose;

 view all matches for this distribution


Morpheus

 view release on metacpan or  search on metacpan

lib/Morpheus/Key.pm  view on Meta::CPAN

    
    $key =~ s{/+}{/}g;
    $key =~ s{^/*}{/}; #TODO: support relative keys?
    $key =~ s{/+$}{};

    bless \$key => $class;
}

sub upgrade {
    map { ref $_ ? $_ : __PACKAGE__->new($_) } @_;
}

 view all matches for this distribution


MouseX-Foreign

 view release on metacpan or  search on metacpan

t/90-MooseX-NonMoose/001-basic.t  view on Meta::CPAN


package Foo;

sub new {
    my $class = shift;
    bless { _class => $class }, $class;
}

package Foo::Mouse;
use Mouse;
use MouseX::Foreign qw(Foo);

 view all matches for this distribution



Net-API-Stripe

 view release on metacpan or  search on metacpan

lib/Net/API/Stripe/TimeZone.pm  view on Meta::CPAN

	my $class = ref( $this ) || $this;
	my $init = shift( @_ );
	my $value = shift( @_ );
	my $tz = DateTime::TimeZone->new( name => $value, @_ );
	my $self = { tz => $tz };
	return( bless( $self => $class ) );
}

sub name { return( shift->{tz}->name ); }

sub _obj_eq 

 view all matches for this distribution


Net-CIDR-MobileJP

 view release on metacpan or  search on metacpan

lib/Net/CIDR/MobileJP.pm  view on Meta::CPAN

};

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

    return bless {spanner => $class->_create_spanner($class->_load_config($stuff))}, $class;
}

sub _create_spanner {
    my ($class, $conf) = @_;

 view all matches for this distribution


Net-DAAP-Client

 view release on metacpan or  search on metacpan

lib/Net/DAAP/Client.pm  view on Meta::CPAN

   );


sub new {
    my $class = shift;
    my $self = bless { %Defaults } => $class;

    if (@_ > 1) {
        $self->_init(@_);
    } elsif (@_) {
        $self->{SERVER_HOST} = shift;

 view all matches for this distribution


Net-DHCP-Control

 view release on metacpan or  search on metacpan

lib/Net/DHCP/Control/Generic.pm  view on Meta::CPAN

  Net::DHCP::Control::open_object($object, $handle) or return;
  unless ($opts{callback}) {
    Net::DHCP::Control::wait_for_completion($object) or return;
  }

  bless $self => $class;
}


for my $key (qw(obj kind handle opts auth class lazy)) {
  my $methname = $key;

 view all matches for this distribution


Net-Domain-Match

 view release on metacpan or  search on metacpan

lib/Net/Domain/Match.pm  view on Meta::CPAN

		source => $SOURCE,
		cache => $CACHE,
		@_,
	};

	my $o = bless $args => $class;

	unless( -e $o->{local} ){
		$o->pull;
	}

 view all matches for this distribution


Net-Domain-Regex

 view release on metacpan or  search on metacpan

lib/Net/Domain/Regex.pm  view on Meta::CPAN

		source => $SOURCE,
		cache => $CACHE,
		@_,
	};

	my $o = bless $args => $class;

	unless( -e $o->{local} ){
		$o->pull;
	}

 view all matches for this distribution


Net-IMAP-Simple

 view release on metacpan or  search on metacpan

lib/Net/IMAP/Simple.pm  view on Meta::CPAN

    my ( $class, $server, %opts ) = @_;

    ## warn "use of Net::IMAP::Simple::SSL is depricated, pass use_ssl to new() instead\n"
    ##     if $class =~ m/::SSL/;

    my $self = bless { count => -1 } => $class;

    $self->{use_v6}  = ( $opts{use_v6}  ? 1 : 0 );
    $self->{use_ssl} = ( $opts{use_ssl} ? 1 : 0 );

    unless( $opts{shutup_about_v6ssl} ) {

 view all matches for this distribution


Net-IP-Match-Bin

 view release on metacpan or  search on metacpan

lib/Net/IP/Match/Bin/Perl.pm  view on Meta::CPAN


sub new {
    my $this = shift;
    my $class = ref($this) || $this;
    my $self = {};
    bless $self => $class;

    my $tree = [];
    $self->{Tree} = $tree;
    return $self;
}

 view all matches for this distribution


Net-IPAddress-Util

 view release on metacpan or  search on metacpan

lib/Net/IPAddress/Util.pm  view on Meta::CPAN

    return ERROR("Invalid argument `$address', a(n) " . (ref($address) || 'bare scalar') . ' provided');
  }
  if ($REPAIR_V3_FORMAT) {
    $normal = _repair_v3_format($normal);
  }
  return bless { address => pack('C16', @$normal) } => $class;
}

sub is_ipv4 {
  my $self = shift;
  my @octets = unpack 'C16', $self->{ address };

 view all matches for this distribution


Net-Socket-NonBlock

 view release on metacpan or  search on metacpan

NonBlock.pm  view on Meta::CPAN

	$Nest->{'SilenceT'}   = (defined($Params{'SilenceT'})   ? $Params{'SilenceT'}   : 0);
        $Nest->{'BuffSize'}   = (defined($Params{'BuffSize'})   ? $Params{'BuffSize'}   : POSIX::BUFSIZ);
        $Nest->{'MaxClients'} = (defined($Params{'MaxClients'}) ? $Params{'MaxClients'} : 9999999999);
        $Nest->{'debug'}      = (defined($Params{'debug'})      ? $Params{'debug'}      : 0);
        $Nest->{'class'}      = $class;
	return bless $Nest => $class;
	};

sub newNest
	{ shift; return Net::Socket::NonBlock::Nest->new(@_); };

 view all matches for this distribution


NetApp

 view release on metacpan or  search on metacpan

lib/NetApp/Filer/TimeoutCache.pm  view on Meta::CPAN

    my %self 		= (
        lifetime	=> $args{lifetime},
        cache		=> {},
    );

    return bless \%self => $class;

}

sub STORE {

 view all matches for this distribution


Number-RecordLocator

 view release on metacpan or  search on metacpan

lib/Number/RecordLocator.pm  view on Meta::CPAN

=cut

sub new {
    my $class = shift;
    my $self = {};
    bless $self => $class;
    $self->init unless ($INITIALIZED); 
    return $self;
}


 view all matches for this distribution


Number-Tolerant

 view release on metacpan or  search on metacpan

lib/Number/Tolerant/Union.pm  view on Meta::CPAN

#pod
#pod =cut

sub new {
  my $class = shift;
  bless { options => [ @_ ] } => $class;
}

#pod =head2 options
#pod
#pod This method will return a list of all the acceptable options for the union.

 view all matches for this distribution


Number-WithError

 view release on metacpan or  search on metacpan

lib/Number/WithError.pm  view on Meta::CPAN

    $num = $num->copy() if ref($num);
    my $err =  [];
    foreach (@{$proto->{errors}}) {
      push @$err, ref($_) eq 'ARRAY' ? [map {ref($_) ? $_->copy() : $_} @$_] : (ref($_) ? $_->copy() : $_)
    }
    return bless {num => $num, errors => $err} => $class;
  }

  return undef if not @_;

  my $num = shift;

 view all matches for this distribution


Object-Array

 view release on metacpan or  search on metacpan

lib/Object/Array.pm  view on Meta::CPAN

  
sub new {
  my $class = shift;
  my $real  = shift || [];

  my $self = bless \$real => $class;
  
  $real{$self->_addr} = $real;

  return $self;
}

 view all matches for this distribution


Object-Capsule

 view release on metacpan or  search on metacpan

t/capsule.t  view on Meta::CPAN

}

our $widgetstring = "It's a widget!";

package Widget;
	sub new  { my $class = shift; bless { @_ } => $class }
	sub size { (shift)->{size} }
	sub grow { ++(shift)->{size} }
	sub wane { --(shift)->{size} }

	sub encapsulate { "!" }

 view all matches for this distribution


Object-Generic

 view release on metacpan or  search on metacpan

lib/Object/Generic.pm  view on Meta::CPAN


my $false = Object::Generic::false();

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

# Return a list of the current keys.

 view all matches for this distribution


Object-Hybrid

 view release on metacpan or  search on metacpan

lib/Object/Hybrid.pm  view on Meta::CPAN

	fast      => sub { $_[0] },
	self      => sub { $_[0] },
	TIESCALAR => sub {
		my $class = shift;
		my $instance = shift || undef;
		return bless \$instance => $class;
	},
	FETCH   => sub { ${$_[0]}  },
	STORE   => sub { ${$_[0]} = $_[1] },
});

 view all matches for this distribution


Object-Prototype

 view release on metacpan or  search on metacpan

lib/Object/Prototype.pm  view on Meta::CPAN

    my $constructor = shift;
    my $self        = Storable::dclone($constructor);
    my $id          = refaddr $self;
    $constructor_of{$id} = $constructor;
    $prototype_of{$id}   = {};
    bless $self => $class;
    for my $method ( keys %{ $_[0] } ) {
        $self->prototype( $method, $_[0]->{$method} );
    }
    return $self;
}

 view all matches for this distribution


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