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


Data-Util

 view release on metacpan or  search on metacpan

t/06_subroutine.t  view on Meta::CPAN

	use overload
		'&{}' => 'codify',
	;
	sub new{
		my $class = shift;
		bless {@_} => $class;
	}
	sub codify{
		my $self = shift;
		$self->{code};
	}

 view all matches for this distribution


DateTime-Moonpig

 view release on metacpan or  search on metacpan

lib/DateTime/Moonpig.pm  view on Meta::CPAN


  if (@arg == 1) { return $class->from_epoch( epoch => $arg[0] ) }

  my %arg = @arg;
  $arg{time_zone} = 'UTC' unless exists $arg{time_zone};
  bless $class->SUPER::new(%arg) => $class;
}

sub new_datetime {
  my ($class, $dt) = @_;
  bless $dt->clone => $class;
}

# $a is expected to be epoch seconds
sub plus {
  my ($self, $a) = @_;

 view all matches for this distribution


Declare-CLI

 view release on metacpan or  search on metacpan

lib/Declare/Args.pm  view on Meta::CPAN


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

    my $self = bless { args => {}, default => {} } => $class;
    $self->arg( $_, $args{$_} ) for keys %args;

    return $self;
}

 view all matches for this distribution


Devel-ModInfo

 view release on metacpan or  search on metacpan

ex/MyModule.pm  view on Meta::CPAN

@ISA = qw/ Exporter Autoloader NiceModule /;

sub new {
	#This is my object oriented constructor!
	my($class) = @_;
	return bless {} => $class;
}

sub method1 {
	my($self) = @_;
	return 1;

 view all matches for this distribution


Devel-Monitor

 view release on metacpan or  search on metacpan

lib/Devel/Monitor.pm  view on Meta::CPAN

    use Scalar::Util qw(weaken isweak);
     
    sub new {
        my ($class) = @_;
        my $self = {};
        bless($self => $class);
        return $self;
    }
     
    sub getClassB {
        my $self = shift;

 view all matches for this distribution


Devel-TrackSIG

 view release on metacpan or  search on metacpan

lib/Devel/TrackGlobalScalar.pm  view on Meta::CPAN

sub TIESCALAR {
  my $class = shift;
  my $instance = shift || undef;
  my $name = shift;

  my $o = bless [\$instance, $name] => $class;
  $globals{$name} = $o;
  return $o;
}

sub FETCH {

 view all matches for this distribution


Disassemble-X86

 view release on metacpan or  search on metacpan

X86/MemRegion.pm  view on Meta::CPAN

use warnings;
use integer;

sub new {
  my ($class, %args) = @_;
  my $self = bless { } => $class;
  my $mem = $args{mem};
  defined $mem or $mem = "";
  $self->{mem}   = $mem;
  $self->{len}   = length($mem);
  $self->{start} = $args{start} || 0;

 view all matches for this distribution


Dist-Man

 view release on metacpan or  search on metacpan

lib/Dist/Man/Plugin/Template.pm  view on Meta::CPAN

sub new {
    my $class = shift;
    my $self  = $class->SUPER::new(@_);
    $self->{templates} = { $self->templates };
    $self->{renderer} = $self->renderer;
    return bless $self => $class;
}

=head1 OBJECT METHODS

=head2 C<< templates() >>

 view all matches for this distribution


Dist-Zilla-Role-ErrorLogger

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Role/ErrorLogger.pm  view on Meta::CPAN


use overload '""' => sub { return "Aborting...\n"; };

sub throw {
    my ( $class ) = @_;
    die bless( {} => $class );          ## no critic ( RequireCarping )
};

# --------------------------------------------------------------------------------------------------

1;

 view all matches for this distribution


Dist-Zilla-Util-ExpandINI

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Util/ExpandINI/Reader.pm  view on Meta::CPAN

  my $self = {
    data     => [],
    sections => {},
  };

  bless $self => $class;
  $self->{current_section} = { name => $self->starting_section, lines => [], comment_lines => [] };

  return $self;
}

 view all matches for this distribution


Dumbbench

 view release on metacpan or  search on metacpan

lib/Benchmark/Dumb.pm  view on Meta::CPAN

# No. Users aren't meant to create new objects at this point.
sub _new {
  my $class = shift;
  $class = ref($class) if ref($class);
  my %args = @_;
  my $self = bless {} => $class;
  if (defined $args{instance}) {
    my $inst = $args{instance};
    $self->{name} = $inst->name;
    $self->{result} = $inst->result->new;
  }

 view all matches for this distribution


E-Mail-Acme

 view release on metacpan or  search on metacpan

lib/E/Mail/Acme.pm  view on Meta::CPAN

  package E'Mail::Acme::HeaderFieldValues;
  our @ISA = qw(E'Mail::Acme::Base);

  sub TIEARRAY {
    my ($class, $name, $gutter) = @_;
    bless [ $name, $gutter ] => $class;
  }

  sub FETCHSIZE {
    my ($self) = @_;
  

 view all matches for this distribution


EPUB-Parser

 view release on metacpan or  search on metacpan

lib/EPUB/Parser/Util/Archive.pm  view on Meta::CPAN

    args(
        my $class => 'ClassName',
        my $data => { isa => 'Archive::Zip' },
    );

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

sub get_member_data {
    args(
        my $self      => 'Object',

 view all matches for this distribution


EekBoek

 view release on metacpan or  search on metacpan

lib/EB/Booking.pm  view on Meta::CPAN

use EB::Tools::Attachments;

sub new {
    my ($class) = @_;
    $class = ref($class) || $class;
    return bless {} => $class;
}

sub adm_open {
    my ($self) = @_;
    unless ( $dbh->adm_open ) {

 view all matches for this distribution


Eidolon

 view release on metacpan or  search on metacpan

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

# ------------------------------------------------------------------------------
sub TIEHANDLE 
{ 
    my ($class, $start) = @_;
    $start = 0;
    return bless \$start => $class; 
} 

# ------------------------------------------------------------------------------
# READLINE()
# read line

 view all matches for this distribution


Email-Abstract

 view release on metacpan or  search on metacpan

lib/Email/Abstract.pm  view on Meta::CPAN


  $foreign = Email::Simple->new($foreign)
    unless Scalar::Util::blessed($foreign);

  my $adapter = $class->__class_for($foreign); # dies if none available
  return bless [ $foreign, $adapter ] => $class;
}

sub __class_for {
  my ($self, $foreign, $method, $skip_super) = @_;
  $method ||= 'handle';

 view all matches for this distribution


Email-Address-JP-Mobile

 view release on metacpan or  search on metacpan

inc/Email/Address.pm  view on Meta::CPAN


sub new {
  my ($class, $phrase, $email, $comment, $orig) = @_;
  $phrase =~ s/\A"(.+)"\z/$1/ if $phrase;

  bless [ $phrase, $email, $comment, $orig ] => $class;
}

#line 274

sub purge_cache {

 view all matches for this distribution


Email-Address-Loose

 view release on metacpan or  search on metacpan

inc/Email/Address.pm  view on Meta::CPAN


sub new {
  my ($class, $phrase, $email, $comment, $orig) = @_;
  $phrase =~ s/\A"(.+)"\z/$1/ if $phrase;

  bless [ $phrase, $email, $comment, $orig ] => $class;
}

#line 274

sub purge_cache {

 view all matches for this distribution


Email-Address

 view release on metacpan or  search on metacpan

lib/Email/Address.pm  view on Meta::CPAN


sub new {
  my ($class, $phrase, $email, $comment, $orig) = @_;
  $phrase =~ s/\A"(.+)"\z/$1/ if $phrase;

  bless [ $phrase, $email, $comment, $orig ] => $class;
}

#pod =item purge_cache
#pod
#pod   Email::Address->purge_cache;

 view all matches for this distribution


Email-MessageID

 view release on metacpan or  search on metacpan

lib/Email/MessageID.pm  view on Meta::CPAN

    $args{user} ||= $class->create_user;
    $args{host} ||= $class->create_host;

    my $str = "$args{user}\@$args{host}";

    bless \$str => $class;
}

#pod =method create_host
#pod
#pod   my $domain_part = Email::MessageID->create_host;

 view all matches for this distribution


Email-Send

 view release on metacpan or  search on metacpan

lib/Email/Send.pm  view on Meta::CPAN

    my %plugins = map {
        my ($short_name) = /^Email::Send::(.+)/;
        ($short_name, $_);
    } $class->plugins;
    $args->{_plugin_list} = \%plugins;
    return bless $args => $class;
}

BEGIN {
  for my $field (qw(mailer mailer_args message_modifier _plugin_list)) {
    my $code = sub {

 view all matches for this distribution


Email-Simple

 view release on metacpan or  search on metacpan

lib/Email/Simple.pm  view on Meta::CPAN


  my $text_ref = (ref $text || '' eq 'SCALAR') ? $text : \$text;

  my ($pos, $mycrlf) = $class->_split_head_from_body($text_ref);

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

  my $head;
  if (defined $pos) {
    $head = substr $$text_ref, 0, $pos, '';
    substr($head, -(length $mycrlf)) = '';

 view all matches for this distribution


Embedix-DB

 view release on metacpan or  search on metacpan

DB/Pg.pm  view on Meta::CPAN

    my $self = {
        dbh        => $dbh,
        distro     => undef,    # hashref w/ info on current working distro
        path_cache => { },      # $path_cache->{node_id} eq $path
    };
    bless($self => $class);

    #self->workOnDistro(name => $opt{name}, board => $opt{board});
    return $self;
}

 view all matches for this distribution


Embedix-ECD

 view release on metacpan or  search on metacpan

ECD.pm  view on Meta::CPAN

            'if'                => undef,
        },
    };
    delete($opt{name});
    @{$self->{attribute}}{keys %opt} = values %opt;
    return bless($self => $class);
}

# constructor, object
#_______________________________________
sub newFromCons {

 view all matches for this distribution


Encode

 view release on metacpan or  search on metacpan

lib/Encode/Encoder.pm  view on Meta::CPAN

    }
    my $self = {
        data     => $data,
        encoding => $encname,
    };
    bless $self => $class;
}

sub encoder { __PACKAGE__->new(@_) }

sub data {

 view all matches for this distribution


Enumeration

 view release on metacpan or  search on metacpan

lib/Enumeration.pm  view on Meta::CPAN

    my %instance_value;

    sub new
    {
        my $class = shift;
        my $self = bless \do { my $dummy } => $class;

        # Caller is creating an on-the-fly enumeration
        if ($class eq 'Enumeration')
        {
            my %values = map {$_ => 1} @_;

 view all matches for this distribution


Error-Base

 view release on metacpan or  search on metacpan

lib/Error/Base.pm  view on Meta::CPAN

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

 view all matches for this distribution


Event-Lib

 view release on metacpan or  search on metacpan

t/50_cleanup.t  view on Meta::CPAN


my $_DESTROY = "not called";

sub new {
    my $class = shift;
    bless Event::Lib::timer_new(shift) => $class;
}

sub DESTROY {
    $_DESTROY = "called";
    shift->SUPER::DESTROY;

 view all matches for this distribution


Exception-Backtrace

 view release on metacpan or  search on metacpan

lib/Exception/Backtrace.pm  view on Meta::CPAN

};

sub new {
    my ($class, $value) = @_;
    my $obj = { _value => $value };
    return bless $obj => $class;
}


1;

 view all matches for this distribution


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