Result:
found 547 distributions and 1043 files matching your query ! ( run in 0.881 )


Storable-Improved

 view release on metacpan or  search on metacpan

lib/Storable/Improved.pm  view on Meta::CPAN

    {
        my $self = shift( @_ );
        my $class = ref( $self ) || $self;
        my $args = [ __FILE__, 'r' ];
        # We change the glob object into a regular hash-based one to be Storable-friendly
        my $this = bless( { args => $args, class => $class } => $class );
        return( $this );
    }

    sub IO::File::STORABLE_thaw_post_processing
    {

 view all matches for this distribution


Stream-Reader

 view release on metacpan or  search on metacpan

lib/Stream/Reader.pm  view on Meta::CPAN

    Readed => 0,
    Stored => 0,
    Total  => 0,
    Error  => 0
  };
  return bless( $self => $class );
ENDC

# Destructor
DESTROY => <<'ENDC',
  return 1;

 view all matches for this distribution


String-Formatter

 view release on metacpan or  search on metacpan

lib/String/Formatter.pm  view on Meta::CPAN

  my $_codes = {
    %{ $class->default_codes },
    %{ $arg->{codes} || {} },
  };

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

  for (keys %METHODS) {
    $self->{ $_ } = $arg->{ $_ } || do {
      my $default_method = "default_$_";
      $class->$default_method;

 view all matches for this distribution


String-Interpolate-Delayed

 view release on metacpan or  search on metacpan

lib/String/Interpolate/Delayed.pm  view on Meta::CPAN

sub new
{
	my $class = shift;
	my ($text) = @_;
	
	bless \$text => $class;
}

sub uninterpolated
{
	my $self = shift;

 view all matches for this distribution


Su

 view release on metacpan or  search on metacpan

lib/Su/Log.pm  view on Meta::CPAN

  # Su::Log->trace( "classname:" . $class_name );
  # Su::Log->trace( Dumper($class_name) );

  # Add the caller class to the target list automatically.

  return bless { class_name => $class_name, on => 1, level => $level }, $self;
} ## end sub new

=item is_target()

Determine whether the module is a logging target or not.

 view all matches for this distribution


Sub-Curry

 view release on metacpan or  search on metacpan

lib/Sub/Curry.pm  view on Meta::CPAN

        my $code_str = "sub { \$cb->(@{[join ', ', @str]}) }";
        my $self = eval $code_str or die;

        #return $self if $nobless;

        bless $self => $class;

        _code_str($self => $code_str);
        _real_spice($self => $spice);
        $self->uncurried($cb);

 view all matches for this distribution


Sub-DeferredPartial

 view release on metacpan or  search on metacpan

lib/Sub/DeferredPartial.pm  view on Meta::CPAN

  my $class = shift;
  my $Sub   = shift;
  my $Free  = shift;
  my $Bound = shift || {};

  bless { Sub => $Sub, F => $Free, B => $Bound } => $class;
}
# -----------------------------------------------------------------------------
sub Subify
# -----------------------------------------------------------------------------
{

 view all matches for this distribution


Sub-Exporter

 view release on metacpan or  search on metacpan

t/lib/Test/SubExporter/ObjGen.pm  view on Meta::CPAN


sub new {
  my $class = shift;
  my $code  = $class->can(shift);

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

sub group {
  return {
    foo => sub { return 'FOO' },

 view all matches for this distribution


Sub-Meta

 view release on metacpan or  search on metacpan

lib/Sub/Meta.pm  view on Meta::CPAN


    my %args = @args == 1 && (ref $args[0]||"") ne "HASH" ? _croak "single arg must be hashref"
             : @args == 1 ? %{$args[0]}
             : @args;

    my $self = bless \%args => $class;

    $self->set_sub(delete $args{sub})             if exists $args{sub}; # build subinfo
    $self->set_subname(delete $args{subname})     if exists $args{subname};
    $self->set_stashname(delete $args{stashname}) if exists $args{stashname};
    $self->set_fullname(delete $args{fullname})   if exists $args{fullname};

 view all matches for this distribution


Sub-Pipeline

 view release on metacpan or  search on metacpan

lib/Sub/Pipeline.pm  view on Meta::CPAN


sub new {
  my ($class, $arg) = @_;
  $arg->{on_success} ||= 'value';

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

  $self->order(@{ $arg->{order} }) if $arg->{order};
  $self->pipe($_ => $arg->{pipe}{$_}) for (keys %{ $arg->{pipe} });
  $self->on_success($arg->{on_success});

 view all matches for this distribution


Sub-Signatures

 view release on metacpan or  search on metacpan

lib/Sub/Signatures.pm  view on Meta::CPAN

misleading.

  package Foo;
  use Sub::Signatures qw/methods/;

  sub new($class) { bless {} => $class }

  sub _some_func($bar) { return scalar reverse $bar }

  sub some_method($self, $bar) { 
      $self->{bar} = _some_func($bar);

 view all matches for this distribution


Syntax-Feature-EachOnArray

 view release on metacpan or  search on metacpan

lib/Syntax/Feature/EachOnArray.pm  view on Meta::CPAN

	}

	sub TIEHASH
	{
		my ($class, $arrayref) = @_;
		bless [$arrayref, 0] => $class;
	}

	sub STORE
	{
		my ($self, $k, $v) = @_;

 view all matches for this distribution


TCP-Rebuild

 view release on metacpan or  search on metacpan

lib/TCP/Rebuild.pm  view on Meta::CPAN

  my %defaults = (
    separator	=> 0,
    filter	=> ''
  );

  my $self = bless { %defaults, @_ } => $class;

  $self->{connections} = {};

  return $self;
}

 view all matches for this distribution


Tak

 view release on metacpan or  search on metacpan

lib/Tak/STDIONode.pm  view on Meta::CPAN

  
  # duplicated in Moo::Role
  sub meta {
    require Moo::HandleMoose::FakeMetaClass;
    my $class = ref($_[0])||$_[0];
    bless({ name => $class }, 'Moo::HandleMoose::FakeMetaClass');
  }
  
  1;
MOO_OBJECT

 view all matches for this distribution


Taskwarrior-Kusarigama

 view release on metacpan or  search on metacpan

lib/Taskwarrior/Kusarigama/Wrapper/Exception.pm  view on Meta::CPAN

# ABSTRACT: Exception class for Taskwarrior::Kusarigama::Wrapper
$Taskwarrior::Kusarigama::Wrapper::Exception::VERSION = '0.12.0';
use strict;
use warnings;

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

use overload (
  q("") => '_stringify',
  fallback => 1,
);

 view all matches for this distribution


Template-LiquidX-Tidy

 view release on metacpan or  search on metacpan

lib/App/LiquidTidy.pm  view on Meta::CPAN

use Template::Liquid;
use Template::LiquidX::Tidy::Tag::include;
use Template::LiquidX::Tidy::Tag::post_url;

sub new ($class, $args) {
    bless $args => $class
}

sub run ($self) {
    die "No file name specified\n" unless $self->{file};
    my $fh;

 view all matches for this distribution


Term-Caca

 view release on metacpan or  search on metacpan

lib/Term/Caca/Bitmap.pm  view on Meta::CPAN

use Term::Caca;

sub new {
  my ($class, $bpp, $w, $h, $pitch, $rmask, $gmask, $bmask, $amask) = @_;
  my $self = Term::Caca::_create_bitmap($bpp, $w, $h, $pitch, $rmask, $gmask, $bmask, $amask);
  return bless($self => $class);
}

sub set_palette {
  my ($self, $red, $green, $blue, $alpha) = @_;
  return Term::Caca::_set_bitmap_palette($self, $red, $green, $blue, $alpha);

 view all matches for this distribution


Term-Interact

 view release on metacpan or  search on metacpan

Interact.pm  view on Meta::CPAN

}


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

 view all matches for this distribution


Term-Screen-Uni

 view release on metacpan or  search on metacpan

lib/Term/Screen/Uni.pm  view on Meta::CPAN

		{ $self->{'handler'} = eval 'use Term::Screen; return Term::Screen->new();'; };

	if (!defined($self->{'handler'}))
		{ croak("Can not create Term::Screen handler: ".$@); };

	return bless $self => $class;
	};


1;
__END__

 view all matches for this distribution


Term-Screen-Win32

 view release on metacpan or  search on metacpan

lib/Term/Screen/Win32.pm  view on Meta::CPAN

    $self->{'console'}->Mode(ENABLE_PROCESSED_INPUT);
    at($self, 0, 0);

    %{$self->{'def_key'}} = %def_key;

	return bless $self => $class;
	};

sub cleanup
	{
	$_[0]->normal();

 view all matches for this distribution


Term-Scroller

 view release on metacpan or  search on metacpan

lib/Term/Scroller.pm  view on Meta::CPAN


    defined(my $pid = fork)     or croak "unable to fork: $!";

    # Parent: Return the new scroller
    if ($pid) {
        bless $pty => $class;
        ${*$pty}{'term_scroller_pid'} = $pid;
        return $pty;
    }

    ################################################

 view all matches for this distribution


Test-AutoMock

 view release on metacpan or  search on metacpan

lib/Test/AutoMock/Mock/TieArray.pm  view on Meta::CPAN

use warnings;

sub TIEARRAY {
    my ($class, $manager) = @_;

    bless \$manager => $class;
}

sub FETCH {
    my ($self, $key) = @_;
    my $manager = $$self;

 view all matches for this distribution


Test-CVE

 view release on metacpan or  search on metacpan

lib/Test/CVE.pm  view on Meta::CPAN

    $self{width}    //= $ENV{COLUMNS} // 80;
    $self{want}     //= [];
    $self{make_pl}  ||= "Makefile.PL";
    $self{cpanfile} ||= "cpanfile";
    $self{CVE}        = {};
    bless \%self => $class;
    } # new

sub _read_cpansa {
    my $self = shift;
    my $src  = $self->{cpansa} or croak "No source for CVE database";

 view all matches for this distribution


Test-Harness

 view release on metacpan or  search on metacpan

lib/App/Prove/State/Result.pm  view on Meta::CPAN

    my ( $class, $arg_for ) = @_;
    $arg_for ||= {};
    my %instance_data = %$arg_for;    # shallow copy
    $instance_data{version} = $class->state_version;
    my $tests = delete $instance_data{tests} || {};
    my $self = bless \%instance_data => $class;
    $self->_initialize($tests);
    return $self;
}

sub _initialize {

 view all matches for this distribution


Test-Mock-Guard

 view release on metacpan or  search on metacpan

lib/Test/Mock/Guard.pm  view on Meta::CPAN

                ++$stash->{$class_name}->{$method_name}->{called_count};
                &$mocked_method;
            }, $prototype);
        }
    }
    return bless { restore => $restore, object => $object } => $class;
}

sub call_count {
    my ($self, $klass, $method_name) = @_;

 view all matches for this distribution


Test-Mock-Object

 view release on metacpan or  search on metacpan

lib/Test/Mock/Object/Chain.pm  view on Meta::CPAN


    my $last = pop @$chain;
    while ( my $method = pop @$chain ) {
        $last = _add_link( $method => $last );
    }
    return blessed $last ? $last : bless $last => $class;
}

sub _add_link {
    my ( $method, $value ) = @_;
    my $class = __PACKAGE__;

 view all matches for this distribution


Test-Reporter-Transport-Legacy

 view release on metacpan or  search on metacpan

lib/Test/Reporter/Transport/HTTPGateway.pm  view on Meta::CPAN

  my ($class, $url, $key) = @_;

  die "invalid gateway URL: must be absolute http or https URL"
    unless $url =~ /\Ahttps?:/i;

  bless { gateway => $url, key => $key } => $class;
}

sub send {
  my ($self, $report) = @_;

 view all matches for this distribution


Test-Reporter

 view release on metacpan or  search on metacpan

lib/Test/Reporter/Transport/File.pm  view on Meta::CPAN

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

  die "target directory '$dir' doesn't exist or can't be written to"
    unless -d $dir && -w $dir;

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

sub send {
    my ($self, $report) = @_;
    $report->dir( $self->{dir} );

 view all matches for this distribution


( run in 0.881 second using v1.00-cache-2.02-grep-82fe00e-cpan-503542c4f10 )