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 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 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 release on metacpan or  search on metacpan

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

  }
  else {
    return ERROR("Invalid argument `$address', a(n) " . (ref($address) || 'bare scalar') . ' provided');
  }
  # warn(join(',', @$normal) . "\n");
  return bless { address => pack('C16', @$normal), %opt } => $class;
}

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

 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 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 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 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 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 release on metacpan or  search on metacpan

lib/OEIS/A000045.pm  view on Meta::CPAN

our $VERSION = '2021041201';

my $values;

sub new  ($class) {bless do {\my $v} => $class}
sub init ($self, $initial_values) {
    @$values = @$initial_values;
    $self
}

 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 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 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 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 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 release on metacpan or  search on metacpan

lib/PAR/Repository/Web/DataSource/MemoryCachedRepository.pm  view on Meta::CPAN

  my $class = shift;
  my %args = @_;
  my $super = $class->SUPER::new(
    repositories => $args{repositories}
  );
  my $self = bless $super => $class;
  $self->{auto_update_cache} = $args{auto_update_cache} ? 1 : 0;

  $self->_init_cache();
  $self->update_cache();
  $self->_init_mockup_client();

 view release on metacpan or  search on metacpan

basiclib/XML/Smart/HTMLParser.pm-txt  view on Meta::CPAN

sub new { 
  my $this = shift ;
  my $class = ref($this) || $this ;
  return $this if ref $this ;

  $this = bless {} => $class ;
  
  my %args = @_ ;
  $this->setHandlers(%args) ;
  
  $this->{NOENTITY} = 1 ;

 view release on metacpan or  search on metacpan

FR/perlobj.pod  view on Meta::CPAN

        my $self = shift;
        my $class = ref($self) || $self;
        my $node = {};
        $node->{LEFT} = $node->{RIGHT} = $node;
        $node->{DATA} = [ @_ ];
        return bless $node => $class;
    }

Si vous créez de tels noeuds, ils ne disparaîtront pas (actuellement)
à moins que vous ne brisiez leur auto-référence vous-même (en d'autres
termes, cela ne doit pas être considéré comme une caractéristique et

 view release on metacpan or  search on metacpan

lib/POE/Component/OpenSSH.pm  view on Meta::CPAN

        or croak '"options" must be a hashref';

    ref $opts{'error'}   eq 'HASH'
        or croak '"error" must be a hashref';

    return bless { _object => $class->_build_object(\%opts) }, $class;
}

1;

__END__

 view release on metacpan or  search on metacpan

lib/Package/Butcher.pm  view on Meta::CPAN

our $VERSION = '0.02';

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

sub _initialize {
    my ( $self, $arg_for ) = @_;

 view release on metacpan or  search on metacpan

lib/Package/Reaper.pm  view on Meta::CPAN

  my ($class, $package) = @_;

  # Do I care about checking $package with _CLASS and/or exists_package?
  # Probably not, for now. -- rjbs, 2006-06-05
  my $self = [ $package, 1 ];
  bless $self => $class;
}


sub package {
  my $self = shift;

 view release on metacpan or  search on metacpan

lib/Pad/Tie/Plugin/List.pm  view on Meta::CPAN

sub STORE_CACHE () { 4 }

# XXX this looks familiar too
sub TIEARRAY {
  my ($class, $inv, $method) = @_;
  bless [ $inv, $method ] => $class;
}

BEGIN {
  for my $unimp (qw(STORESIZE EXISTS DELETE PUSH POP SHIFT UNSHIFT
    SPLICE)) {

 view release on metacpan or  search on metacpan

lib/Pandoc/Metadata.pm  view on Meta::CPAN

#     package Pandoc::Metadata::Error;
#     use overload q[""] => 'shortmess', q[%{}] => 'data', fallback => 1;
#     use constant { SHORTMESS => 0, LONGMESS => 1, DATA => 2 };
#     sub new {
#         my($class, @values) = @_;   # CLASS, (MESSAGE, {DATA})
#         bless \@values => $class;
#     }
#     sub shortmess { shift->[SHORTMESS] }
#     sub longmess { shift->[LONGMESS] }
#     sub data { shift->[DATA] }
#     sub rethrow { die shift }

 view release on metacpan or  search on metacpan

lib/Pandoc/Version.pm  view on Meta::CPAN

      map { 'ARRAY' CORE::eq ( reftype $_ // "" ) ? @$_ : $_ }
      map { $_ // '' } @_;

    Pandoc::Error->throw('invalid version number') unless @nums;

    return bless \@nums => $class;
}

sub string { join '.', @{ $_[0] } }

sub number {

 view release on metacpan or  search on metacpan

t/pp/06_invocant.t  view on Meta::CPAN

package Params::Util::Test::_INVOCANT::Tied;

sub TIESCALAR
{
    my ($class, $value) = @_;
    return bless \$value => $class;
}

 view release on metacpan or  search on metacpan

lib/Parse/IRCLog/Result.pm  view on Meta::CPAN

  my $class = shift;
	my @events = @_;
  return if ref $class;
	return unless @events;

  bless { events => \@events } => $class;
}

# =method events
#
# This method returns the list of events in the result set.

 view release on metacpan or  search on metacpan

lib/Path/Hilbert.pm  view on Meta::CPAN

# optional constructor if you want OO-style
sub new {
    my $class = shift;
    my ($n) = @_;
    return bless { n => $n } => $class;
}

# convert (x,y) to d
sub _xy2d {
    my ($side, $x, $y) = @_;

 view release on metacpan or  search on metacpan

lib/Perl/APIReference.pm  view on Meta::CPAN

# only for ::Generator
sub _new_from_parse {
  my $class = shift;

  return bless {@_} => $class;
}

# only for ::Generator
sub _dump_as_class {
  my $self = shift;

 view release on metacpan or  search on metacpan

lib/Perl/Critic/Policy/Tics/ProhibitLongLines.pm  view on Meta::CPAN

  Carp::croak "pct_allowed for Tics::ProhibitLongLines must be a positive int"
    unless $merge{pct_allowed} =~ /\A\d+\z/ and $merge{pct_allowed} >= 0;

  $self->{$_} = $merge{$_} for $self->supported_parameters;

  bless $self => $class;
}


sub violates {
  my ($self, $elem, $doc) = @_;

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

    * 20060: Incorrect page numbers in ProhibitLeadingZeros
      and RequireNumberSeparator policies.
    * 20068: .perlrc file - inconsistent documentation
    * 20254: "use vars qw(@EXPORT_OK)" not recognized
    * 20463: No-case heredoc terminator incorrectly detected as lower case.
    * ProhibitOneArgBless doesn't understand "bless {} => $class;"
    * ProhibitExcessComplexity doesn't count 'while' and 'until' stmnts
    * ProhibitLeadingZeros was falsely hits '.0456'

    [Enhancements]
    * If File::HomeDir is available, we use it to locate the