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


Games-Crossword-Puzzle

 view release on metacpan or  search on metacpan

lib/Games/Crossword/Puzzle.pm  view on Meta::CPAN



sub from_file {
  my ($class, $filename) = @_;

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

  open my $fh, $filename or die "couldn't open file: $!";

  seek $fh, 2, 0;
  read $fh, (my $magic), 12;

 view all matches for this distribution


Games-Goban

 view release on metacpan or  search on metacpan

lib/Games/Goban/Board.pm  view on Meta::CPAN


  $self->{color} = $args{color};
  $self->{notes} = $args{notes};
  $self->{move}  = $args{move};

  bless $self => $class;
}

sub notes    { (shift)->{notes} }
sub position { (shift)->current_space_id }

 view all matches for this distribution


Games-Lacuna-Client

 view release on metacpan or  search on metacpan

lib/Games/Lacuna/Client/Alliance.pm  view on Meta::CPAN


sub new {
  my $class = shift;
  my %opt = @_;
  my $self = $class->SUPER::new(@_);
  bless $self => $class;
  $self->{alliance_id} = $opt{id};
  return $self;
}

__PACKAGE__->init();

 view all matches for this distribution


Games-Nintendo-Mario

 view release on metacpan or  search on metacpan

lib/Games/Nintendo/Mario.pm  view on Meta::CPAN

    state => $args{state},
    name  => $args{name},
    $class->_other_defaults
  };

  bless $plumber => $class;
}

=head2 C<powerup>

  $hero->powerup('hammer'); # this won't work

 view all matches for this distribution


Geo-Coder-GeocodeFarm

 view release on metacpan or  search on metacpan

t/050_geocode.t  view on Meta::CPAN


package My::Mock;

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


package My::Mock::HTTP::Tiny;

 view all matches for this distribution


Geography-States

 view release on metacpan or  search on metacpan

lib/Geography/States.pm  view on Meta::CPAN

                       exists $self -> {cs} -> {$info -> [$i]};
        }
    }
    $self -> {country} = $country;

    bless $self => $class;
}


sub state {
    my $self = shift;

 view all matches for this distribution


Getopt-Long-Descriptive

 view release on metacpan or  search on metacpan

lib/Getopt/Long/Descriptive/Opts.pm  view on Meta::CPAN

  my %opts;
  @opts{ @keys } = @$self{ @keys };

  $meta->{specified_opts} = \%opts;

  bless $meta->{specified_opts} => $class;
  weaken $meta->{specified_opts};

  $meta->{specified_opts};
}

 view all matches for this distribution


Git-Annex

 view release on metacpan or  search on metacpan

lib/Git/Annex.pm  view on Meta::CPAN

              "--is-inside-work-tree";
        };
        exit($output and $output =~ /true/);
    }

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


sub toplevel { shift->{toplevel} }

 view all matches for this distribution


Git-Github-Creator

 view release on metacpan or  search on metacpan

lib/Git/Github/Creator.pm  view on Meta::CPAN

		DEBUG( "$key is $Config{$key}" );
		}
	}

	my $opts = $class->_getopt(\@argv);
	my $self = bless $opts => $class;

	my $meta = $self->_get_metadata;

	my $name = $meta->{name};
	my $desc = $meta->{desc};

 view all matches for this distribution


Git-Wrapper

 view release on metacpan or  search on metacpan

lib/Git/Wrapper.pm  view on Meta::CPAN

    my( $dir , %opts ) = @_;
    $dir = "$dir" if blessed $dir; # we can stringify it for you wholesale
    $args = { dir => $dir , %opts }
  }

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

  die "usage: $class->new(\$dir)" unless $self->dir;

  return $self;
}

 view all matches for this distribution


Global-Rainbow-Map

 view release on metacpan or  search on metacpan

lib/Global/Rainbow/Map.pm  view on Meta::CPAN

}

sub new
{
	my ($class, %args) = @_;
	bless \%args => $class;
}

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

 view all matches for this distribution


Google-Checkout

 view release on metacpan or  search on metacpan

lib/Google/Checkout/Command/AddMerchantOrderNumber.pm  view on Meta::CPAN


  my $self = $class->SUPER::new(
               %args, 
               name => Google::Checkout::XML::Constants::ADD_MERCHANT_ORDER_NUMBER);

     $self = bless $self => $class;
     $self->set_merchant_order_number($args{merchant_order_number});

  return $self;
}

 view all matches for this distribution


Gopher-Server

 view release on metacpan or  search on metacpan

lib/Gopher/Server/TypeMapper.pm  view on Meta::CPAN

		}
	}

	no warnings; # Shut off warnings for case where $ext isn't defined
	my $self = exists TYPES->{$ext} ? TYPES->{$ext} : TYPES->{default};
	bless $self => $class;
}


sub gopher_type  {  $_[0]->[GOPHER_TYPE]  }
sub mime_type    {  $_[0]->[MIME_TYPE]    }

 view all matches for this distribution


Grammar-Marpa

 view release on metacpan or  search on metacpan

lib/Grammar/Marpa.pm  view on Meta::CPAN

    $Gargs{ bless_package } = delete $args{ bless_package } if $args{ bless_package };
    $Gargs{ trace_file_handle } = $args{ trace_file_handle } if $args{ trace_file_handle };
    $ebnf //= delete $args{ source };
    $ebnf = $$ebnf if ref($ebnf);
    my $G = Marpa::R2::Scanless::G->new({ source => \$ebnf, %Gargs });
    return bless [ $G, $pkg, \%args ] => $class;
}

sub parse {
    my ($grammar, $string) = @_;
    my $R = Marpa::R2::Scanless::R->new({ grammar => $grammar->[ 0 ], semantics_package => $grammar->[ 1 ], %{$grammar->[ 2 ]} });

 view all matches for this distribution



Gtk-Perl

 view release on metacpan or  search on metacpan

Bonobo/Bonobo.pm  view on Meta::CPAN

package Bonobo::UnknownImpl;
@ISA = "POA_".CORBA::ORBit::find_interface("IDL:Bonobo/Unknown:1.0");

sub new {
	my ($class, @attrs) = @_;
	my $self = bless {__repoid => $class->_porbit_repoid, @attrs}, $class;
	return $self;
}

# do we actually need to ref/unref here? What about objects we haven't created?
sub ref { }

 view all matches for this distribution


Gtk2-GladeXML-Simple

 view release on metacpan or  search on metacpan

bin/gpsketcher  view on Meta::CPAN

use constant FALSE => !TRUE;

sub new {
    my ( $class, $glade_file ) = @_;
    die "Invalid glade file filename" unless $glade_file =~ /\.glade$/;
    my $self = bless { } => $class;
    $self->{creation_function} = FALSE; # is it creation_function?
    $self->{requires_gnome} = FALSE; # is it a Gnome App?
    $self->{data} = {}; # data tree for CodeGen
    $self->{stack} = []; # widgets stack
    $self->{main_widget} = FALSE; # is main_widget set?

 view all matches for this distribution


HTML-HTML5-Parser

 view release on metacpan or  search on metacpan

lib/HTML/HTML5/Parser/TagSoupParser.pm  view on Meta::CPAN

package HTML::HTML5::Parser::TagSoupParser::RestartParser;

sub new
{
  my ($class, %opts) = @_;
  bless \%opts => $class;
}

sub throw
{
  my ($class, %opts) = @_;

 view all matches for this distribution


HTML-HTML5-Writer

 view release on metacpan or  search on metacpan

lib/HTML/HTML5/Writer.pm  view on Meta::CPAN

	option p rp rt td th tfoot thead tr);

sub new
{
	my ($class, %opts) = @_;
	my $self = bless \%opts => $class;
	
	$self->{'markup'}   //= 'html';
	$self->{'charset'}  //= 'utf8';
	$self->{'refs'}     //= 'hex';
	$self->{'doctype'}  //= ($self->is_xhtml? DOCTYPE_LEGACY : DOCTYPE_HTML5);

 view all matches for this distribution


HTML-MasonX-ApacheLikePlackHandler

 view release on metacpan or  search on metacpan

lib/HTML/MasonX/ApacheLikePlackHandler.pm  view on Meta::CPAN


        # XXX: This is very naive, in reality an APR::Table maybe
        # can't be represented as a hash (multiple values for the same
        # key?). Or at least we need magic to implement a similar
        # Tie-interface.
        bless $table => $class;
    }

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

 view all matches for this distribution


HTTP-Command-Wrapper

 view release on metacpan or  search on metacpan

lib/HTTP/Command/Wrapper/Curl.pm  view on Meta::CPAN

use warnings;
use utf8;

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

sub fetch_able {
    my ($self, $url, $headers) = @_;

 view all matches for this distribution


HTTP-Headers-ActionPack

 view release on metacpan or  search on metacpan

lib/HTTP/Headers/ActionPack/ContentNegotiation.pm  view on Meta::CPAN

    my $action_pack = shift;

    (blessed $action_pack && $action_pack->isa('HTTP::Headers::ActionPack'))
        || confess "You must supply an instance of HTTP::Headers::ActionPack";

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

sub action_pack { (shift)->{'action_pack'} }

sub choose_media_type {

 view all matches for this distribution


HTTP-Tiny-SPDY

 view release on metacpan or  search on metacpan

t/http_tiny/BrokenCookieJar.pm  view on Meta::CPAN

use strict;
use warnings;

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

package t::http_tiny::BrokenCookieJar2;

use strict;
use warnings;

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

sub add {
}

 view all matches for this distribution


HTTP-Tiny

 view release on metacpan or  search on metacpan

t/BrokenCookieJar.pm  view on Meta::CPAN

use strict;
use warnings;

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

package BrokenCookieJar2;

use strict;
use warnings;

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

sub add {
}

 view all matches for this distribution


HTTP-Upload-FlowJs

 view release on metacpan or  search on metacpan

lib/HTTP/Upload/FlowJs.pm  view on Meta::CPAN

    $options{ simultaneousUploads } ||= 3;
    $options{ mime } ||= MIME::Detect->new();
    $options{ fileParameterName } ||= 'file';
    $options{ allowedContentType } ||= sub { 1 };

    bless \%options => $class;
};

=head2 C<< $flowjs->incomingDirectory >>

Return the incoming directory name.

 view all matches for this distribution


HTTPD-User-Manage

 view release on metacpan or  search on metacpan

lib/HTTPD/Authen.pm  view on Meta::CPAN


sub new {
    require MIME::Base64;
    my($class,$ref) = @_;
    $ref ||= {};
    bless $ref => $class;
}

sub parse {
    my($self,$string) = @_;
    $string =~ s/^Basic\s+//;

 view all matches for this distribution


Hash-Persistent

 view release on metacpan or  search on metacpan

lib/Hash/Persistent.pm  view on Meta::CPAN

    } else {
        $_self->{format} = 'json' if $_self->{format} eq 'auto'; # default format for new files
        $self = {};
    }

    bless $self => $class;
    $meta->{$self} = $_self;
    return $self;
}

sub commit {

 view all matches for this distribution


IO-Compress

 view release on metacpan or  search on metacpan

lib/IO/Uncompress/AnyInflate.pm  view on Meta::CPAN

    my @names = @_ ;

    my $keep = ref $self ;
    for my $class ( map { "IO::Uncompress::$_" } @names)
    {
        bless $self => $class;
        my $magic = $self->ckMagic();

        if ($magic)
        {
            #bless $self => $class;
            return $magic ;
        }

        $self->pushBack(*$self->{HeaderPending})  ;
        *$self->{HeaderPending} = ''  ;

 view all matches for this distribution


IO-File-WithPath

 view release on metacpan or  search on metacpan

lib/IO/File/WithPath.pm  view on Meta::CPAN

    my $io = IO::File->new($path, @_);

    # symboltable hack
    ${*$io}{+__PACKAGE__} = $path;

    bless $io => $class;
}

sub path { 
    my $io = shift;
    ${*$io}{+__PACKAGE__};

 view all matches for this distribution


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