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


Lingua-TreeTagger-Installer

 view release on metacpan or  search on metacpan

lib/Lingua/TreeTagger/Installer.pm  view on Meta::CPAN

    }

    $self->{verbose}++ if $ops{verbose};
    $self->{force}++   if $ops{force};

    return bless $self => $class
}

sub verbose {
    my ($self, @message) = @_;
    if ($self->{verbose}) {

 view all matches for this distribution


Linux-Input

 view release on metacpan or  search on metacpan

lib/Linux/Input.pm  view on Meta::CPAN

# instaniate a new input device
sub new {
  my $class    = shift;
  my $filename = shift;
  my $self     = { };
  bless ($self => $class);

  $self->{fh} = IO::File->new("< $filename");
  die($!) unless ($self->{fh});

  return $self;

 view all matches for this distribution


List-Gen

 view release on metacpan or  search on metacpan

lib/List/Gen.pm  view on Meta::CPAN

        List::Gen::DwimCode;
        my %save;
        sub new {
            my ($class, $gen) = @_;
            my $code = \&$gen;
            bless $code => $class;
            $save{$code} = $gen;
            $code
        }
        sub DESTROY {
            delete $save{$_[0]}

 view all matches for this distribution


Log-Dispatch-Array

 view release on metacpan or  search on metacpan

lib/Log/Dispatch/Array.pm  view on Meta::CPAN

  my ($class, %arg) = @_;
  $arg{array} ||= [];

  my $self = { array => $arg{array} };

  bless $self => $class;

  # this is our duty as a well-behaved Log::Dispatch plugin
  $self->_basic_init(%arg);

  return $self;

 view all matches for this distribution


Log-Dispatch-Message-Passing

 view release on metacpan or  search on metacpan

lib/Log/Dispatch/Message/Passing.pm  view on Meta::CPAN

  confess("output => $output must be an object which can ->consume")
    unless blessed($output) && $output->can('consume');

  my $self = { output => $output };

  bless $self => $class;

  # this is our duty as a well-behaved Log::Dispatch plugin
  $self->_basic_init(%arg);

  return $self;

 view all matches for this distribution


Log-Dispatch-TextTable

 view release on metacpan or  search on metacpan

lib/Log/Dispatch/TextTable.pm  view on Meta::CPAN

    table    => $table,
    send_to  => $arg{send_to},
    flush_if => $arg{flush_if},
  };

  bless $self => $class;

  # this is our duty as a well-behaved Log::Dispatch plugin
  $self->_basic_init(%arg);

  return $self;

 view all matches for this distribution


Log-Dispatchouli

 view release on metacpan or  search on metacpan

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

        : ('stderr');
  };

  my $pid_prefix = exists $arg->{log_pid} ? $arg->{log_pid} : 1;

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

  my $log = Log::Dispatch->new(
    $pid_prefix
    ? (
        callbacks => sub {

 view all matches for this distribution


Log-Fine

 view release on metacpan or  search on metacpan

lib/Log/Fine/Levels/Java.pm  view on Meta::CPAN


sub new
{

        my $class = shift;
        return bless { levelclass => $class }, $class;

}          # new()

# Autoloader
# --------------------------------------------------------------------

 view all matches for this distribution


Log-Unrotate

 view release on metacpan or  search on metacpan

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


    croak "unknown start value: '$self->{start}'" unless $_start_values{$self->{start}};
    croak "unknown end value: '$self->{end}'" unless $_end_values{$self->{end}};
    croak "either check_inode or check_lastline should be on" unless $self->{check_inode} or $self->{check_lastline};

    bless $self => $class;

    if ($self->{pos} and $self->{cursor}) {
        croak "only one of 'pos' and 'cursor' should be specified";
    }
    unless ($self->{pos} or $self->{cursor}) {

 view all matches for this distribution


Loop-Sustainable

 view release on metacpan or  search on metacpan

inc/DBI.pm  view on Meta::CPAN


sub _rebless {
    my $dbh = shift;
    my ($outer, $inner) = DBI::_handles($dbh);
    my $class = shift(@_).'::db';
    bless $inner => $class;
    bless $outer => $class; # outer last for return
}


sub _set_isa {
    my ($classes, $topclass) = @_;

 view all matches for this distribution


Lufs

 view release on metacpan or  search on metacpan

lib/Lufs.pm  view on Meta::CPAN

    $f =~ s{\.}{/}g;$f .= '.pm';
    $class =~ s{\.}{::}g;
    eval "require '$f'";
    if ($@) { warn "cannot load class: $@"; return 0 }
    eval 'push @'.$class."::ISA, 'Lufs::Glue'";
    $self->{fs} = bless {} => $class;
	$opt->{logfile} ||= '/tmp/perlfs.log';
	open(STDERR, ">> $opt->{logfile}") if $opt->{logfile};
	$Lufs::Glue::trace = 1 if $opt->{logfile};
    $self->{fs}->init($opt);
}

 view all matches for this distribution


Lvalue

 view release on metacpan or  search on metacpan

lib/Lvalue.pm  view on Meta::CPAN

or in a constructor:

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

in void context, an in-place modification is done:

    my $obj = SomePackage->new;

 view all matches for this distribution


MP3-Daemon

 view release on metacpan or  search on metacpan

Daemon.pm  view on Meta::CPAN

        client      => *STDOUT,     # nice for debugging
        socket_path => $path,
        idle        => undef,       # coderef to execute while idle
        at_exit     => [ ]          # array of coderefs to execute when done
    };
    bless ($self => $class);

    # clean-up handlers
    foreach (@{$self->{at_exit}}) { $self->atExit($_); }

    # server socket 

 view all matches for this distribution


MP3-Mplib

 view release on metacpan or  search on metacpan

Mplib.pm  view on Meta::CPAN

    my $self =  {   _mp_file        => $file,
                    _mp_id3v1       => undef,
                    _mp_id3v2       => undef, 
                    _mp_header      => undef, 
                    _mp_v2header    => undef,}; 
    bless $self => $class;
}

=pod

=over 4

 view all matches for this distribution


MRO-Magic

 view release on metacpan or  search on metacpan

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

sub new {
  my ($class, %attrs) = @_;
  my $root = {
    new => sub {
      my ($parent, %attrs) = @_;
      bless { %attrs, parent => $parent } => $class;
    },
    get => sub {
      my ($self, $attr) = @_;
      my $curr = $self;
      while ($curr) {

 view all matches for this distribution


Mac-OSVersion-Lite

 view release on metacpan or  search on metacpan

lib/Mac/OSVersion/Lite.pm  view on Meta::CPAN

sub major { shift->{major} }
sub minor { shift->{minor} }

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

    $self->_init_by_current_version     if @_ == 0;
    $self->_init_by_version_string(@_)  if @_ == 1;
    $self->_init_by_version_numbers(@_) if @_ >= 2;

 view all matches for this distribution


Mac-PropertyList-SAX

 view release on metacpan or  search on metacpan

lib/Mac/PropertyList/SAX.pm  view on Meta::CPAN

use overload '""' => sub { shift->value };
sub new {
    my $class = shift;
    my ($type) = $class =~ /::([^:]+)$/;
    my $b = lc $type eq "true";
    bless Object::MultiType->new(scalar => $type, bool => $b) => $class
}
sub value { ${${$_[0]}->scalar} }
package Mac::PropertyList::SAX::true;
use base qw(Mac::PropertyList::SAX::Boolean Mac::PropertyList::true);
package Mac::PropertyList::SAX::false;

 view all matches for this distribution


MacOSX-File

 view release on metacpan or  search on metacpan

Catalog/Catalog.pm  view on Meta::CPAN


sub get{
    my ($class, $path) = @_;
    my $self = xs_getcatalog($path) or return;
    @$self or return;
    bless $self => $class;
}

=item $catalog->set([$path]);

=item setcatalog($catalog, [$path]);

 view all matches for this distribution


Macro-Micro

 view release on metacpan or  search on metacpan

lib/Macro/Micro.pm  view on Meta::CPAN

my $DEFAULT_MACRO_FORMAT = qr/(?<!\\)([\[<] (\w+) [>\]])/x;

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

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

  $arg{macro_format} = $DEFAULT_MACRO_FORMAT unless $arg{macro_format};

  $self->macro_format($arg{macro_format});

 view all matches for this distribution


Mail-ExpandAliases

 view release on metacpan or  search on metacpan

ExpandAliases.pm  view on Meta::CPAN

    }
}

sub new {
    my ($class, $file) = @_;
    my $self = bless [ { }, { }, "" ] => $class;

    $self->[ FILE ] = (grep { -e $_ && -r _ }
                       ($file, @POSSIBLE_ALIAS_FILES))[0];
    $self->debug("Using alias file " . $self->[ FILE ]);
    $self->init();

 view all matches for this distribution


Mail-SpamAssassin-SimpleClient

 view release on metacpan or  search on metacpan

lib/Mail/SpamAssassin/SimpleClient.pm  view on Meta::CPAN


  $arg->{host} = 'localhost' unless defined $arg->{host};
  $arg->{port} = 783 unless defined $arg->{port};
  $arg->{timeout} = 120 unless defined $arg->{timeout};

  bless $arg => $class;
}


sub check {
  my ($self, $message) = @_;

 view all matches for this distribution


Markup-Perl

 view release on metacpan or  search on metacpan

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

my $print_end   = "\nmupl_EOS\n";
my $in_file = $0;

BEGIN { # catch prints into a variable, and dump at the end
	{	package Buffer;
		sub TIEHANDLE { my ($class, $b) = @_; bless $b => $class;              }
		sub PRINT	  { my $b = shift; $$b .= join '', @_;                     }
		sub PRINTF	  { my $b = shift; my $fm = shift; $$b .= sprintf($fm, @_);}
	} tie *STDOUT=>"Buffer", \$output;
	
	set_message(sub{ # for pretty CGI::Carp output

 view all matches for this distribution


MarpaX-Languages-ECMAScript-AST

 view release on metacpan or  search on metacpan

lib/MarpaX/Languages/ECMAScript/AST/Grammar/Base.pm  view on Meta::CPAN

}


sub make_grammar_option {
    my ($class, $spec) = @_;
    return {bless_package => $class->make_bless_package,
	    source        => \$class->make_content($spec, $class->make_grammar_content)};
}


sub make_grammar_content {

 view all matches for this distribution


Math-Expression

 view release on metacpan or  search on metacpan

Expression.pm  view on Meta::CPAN

		EnablePrintf	=>	0,			# Enable printf function
		Functions	=>	{%InFuns},		# Known functions, initialise to builtins

	);

	my $self = bless \%ExprVars => $class;
	$self->SetOpt(@_);	# Process new options

	return $self;
}

 view all matches for this distribution


Math-Fractal-Curve

 view release on metacpan or  search on metacpan

lib/Math/Fractal/Curve.pm  view on Meta::CPAN

	for (my $i = 0; $i < @_; $i+=2) {
		$self->{$_[$i]} = $_[$i+1];
	}

	delete $self->{_edges};
	bless $self => $class;

	if (not exists $self->{generator}) {
		croak "You need to supply a generator subroutine.";
	}
	

 view all matches for this distribution


Math-Project3D-Plot

 view release on metacpan or  search on metacpan

lib/Math/Project3D/Plot.pm  view on Meta::CPAN

   # put them into our object.
   foreach my $arg (@valid_args) {
      $self->{$arg} = $args{$arg} if exists $args{$arg};
   }

   bless $self => $class;

   # get min/max logical x/y coordinates
   ( $self->{min_x}, $self->{min_y} ) = $self->_g_l(0, 0);
   ( $self->{max_x}, $self->{max_y} ) = $self->_g_l(
                                          $self->{image}->getwidth(),

 view all matches for this distribution


Math-Project3D

 view release on metacpan or  search on metacpan

lib/Math/Project3D.pm  view on Meta::CPAN

   my $self  = {
     function => undef,
     @_
   };

   bless $self => $class;

   # Some attributes are required.
   my $missing_attribute = $self->_require_attributes(qw(
                                   plane_basis_vector
                                   plane_direction1

 view all matches for this distribution


Math-Random-AcceptReject

 view release on metacpan or  search on metacpan

lib/Math/Random/AcceptReject.pm  view on Meta::CPAN

        croak("'xmin' must be smaller than 'xmax'");
    }

    $self->{xdiff} = $self->{xmax} - $self->{xmin};

    bless $self => $class;

    return $self;
}

=head2 rand

 view all matches for this distribution


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