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


IO-Handle-Rewind

 view release on metacpan or  search on metacpan

lib/IO/Handle/Rewind.pm  view on Meta::CPAN

sub new {
  my ($class, $obj, $opt) = @_;
  
  $obj->isa('IO::Handle') or croak "Can't wrap non-IO::Handle object: $obj";

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

  $self->obj($obj);
 
  return $self;
}

 view all matches for this distribution


IO-TieCombine

 view release on metacpan or  search on metacpan

lib/IO/TieCombine.pm  view on Meta::CPAN

  my $self = {
    combined => \(my $str = ''),
    slots    => { },
  };

  bless $self => $class;
}

#pod =method combined_contents
#pod
#pod This method returns the contents of all collected data.

 view all matches for this distribution


IO-Tty

 view release on metacpan or  search on metacpan

Pty.pm  view on Meta::CPAN

  croak "Cannot open a pty" if not defined $ptyfd;

  my $pty = $class->SUPER::new_from_fd($ptyfd, "r+");
  croak "Cannot create a new $class from fd $ptyfd: $!" if not $pty;
  $pty->autoflush(1);
  bless $pty => $class;

  my $slave = IO::Tty->new_from_fd($ttyfd, "r+");
  croak "Cannot create a new IO::Tty from fd $ttyfd: $!" if not $slave;
  $slave->autoflush(1);

 view all matches for this distribution


IOC

 view release on metacpan or  search on metacpan

t/010_IOC_test.t  view on Meta::CPAN

{
    package FileLogger;
    sub new { 
        my ($class, $log_file) = @_;
        ($log_file eq 'logfile.log') || die "Got wrong log file";
        bless { log_file => $log_file } => $class; 
    }
    
    package Application;
    sub new { 
        my $class = shift;
        bless { logger => undef } => $class 
    }
    sub logger { 
        my ($self, $logger) = @_;
        (UNIVERSAL::isa($logger, 'FileLogger')) || die "Got wrong logger type";
        $self->{logger} = $logger;

 view all matches for this distribution


IPC-Shareable

 view release on metacpan or  search on metacpan

lib/IPC/Shareable.pm  view on Meta::CPAN


    $sem->op(@{ $semop_args{(LOCK_SH|LOCK_UN)} });

    _debug "IPC::Shareable instance created:", $sh               if DEBUGGING;

    return bless $sh => $class;
}

sub _parse_args {
    _trace @_                                                    if DEBUGGING;
    my($proto, $opts) = @_;

 view all matches for this distribution


Image-JpegMinimal

 view release on metacpan or  search on metacpan

lib/Image/JpegMinimal.pm  view on Meta::CPAN


    $options{ jpegquality } ||= 20;
    $options{ xmax } ||= 42;
    $options{ ymax } ||= 42;

    bless \%options => $class
}

sub get_imager {
    my( $self, $file ) = @_;
    # We should check that Imager can write jpeg images

 view all matches for this distribution


JIRA-Client

 view release on metacpan or  search on metacpan

lib/JIRA/Client.pm  view on Meta::CPAN

$RemoteCustomFieldValue::VERSION = '0.45';
sub new {
    my ($class, $id, $values) = @_;

    $values = [$values] unless ref $values;
    return bless({customfieldId => $id, key => undef, values => $values} => $class);
}


package RemoteComponent;
$RemoteComponent::VERSION = '0.45';

 view all matches for this distribution


JIRA-REST-Class

 view release on metacpan or  search on metacpan

lib/JIRA/REST/Class/Mixins.pm  view on Meta::CPAN

            return "DateTime(  $thing  )";
        }
        if ( $top ) {
            if ( reftype $thing eq 'ARRAY' ) {
                chomp( my $data = Dumper( __array_copy( $thing ) ) );
                return "bless( $data => $class )";
            }
            if ( reftype $thing eq 'HASH' ) {
                chomp( my $data = Dumper( __hash_copy( $thing ) ) );
                return "bless( $data => $class )";
            }
            return Dumper( $thing );
        }
        else {
            my $fallback;

 view all matches for this distribution


JSON-Hyper

 view release on metacpan or  search on metacpan

lib/JSON/Hyper.pm  view on Meta::CPAN

sub new
{
	my ($class, $schema) = @_;
	$schema ||= json_ref();
	$schema = from_json($schema) unless ref $schema;
	return bless { schema => $schema, ua => undef } => $class;
}

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

 view all matches for this distribution


JSON-Pointer

 view release on metacpan or  search on metacpan

lib/JSON/Pointer/Context.pm  view on Meta::CPAN

        result           => 0,
        target           => undef,
        parent           => undef,
        %$args,
    );
    bless $args => $class;
}

sub begin {
    my ($self, $token) = @_;
    $self->{last_token} = $token;

 view all matches for this distribution


JSV

 view release on metacpan or  search on metacpan

lib/JSV/Reference.pm  view on Meta::CPAN

        registered_schema_map => {},
        max_recursion         => 10,
        %$args,
    );

    bless $args => $class;
}

sub resolve {
    my ($self, $ref, $opts) = @_;
    die 'ref value should be hash' unless ref $ref eq 'HASH';

 view all matches for this distribution


Jabber-Connection

 view release on metacpan or  search on metacpan

lib/Jabber/NodeFactory.pm  view on Meta::CPAN

               kids   => [],
               parent => $parent,
             };

  weaken($node->{parent}); # XXX
  bless $node => $class;
  $node->attr('xmlns' => $xmlns) if $xmlns;
  return $node;

}

 view all matches for this distribution


Jabber-RPC-HTTPgate

 view release on metacpan or  search on metacpan

lib/Jabber/RPC/HTTPgate.pm  view on Meta::CPAN

  $self->{nf} = new Jabber::NodeFactory;

  $self->{c}->connect or die "Oops: ".$self->{c}->lastError;
  $self->{c}->auth($self->{pass});

  bless $self => $class;
  return $self;

}

sub start {

 view all matches for this distribution


Jcode

 view release on metacpan or  search on metacpan

Jcode.pm  view on Meta::CPAN

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

sub new{
    my $class = shift;
    my $self  = {};
    bless $self => $class;
    defined $_[0] or $_[0] = '';
    $self->set(@_);
}

sub set{

 view all matches for this distribution


KSx-IndexManager

 view release on metacpan or  search on metacpan

lib/KSx/IndexManager.pm  view on Meta::CPAN

  $arg ||= {};
  $class->call_plugins(before_new => $arg);
  unless ($arg->{schema} ||= $class->schema_class) {
    Carp::croak "schema is mandatory for $class->new";
  }
  my $self = bless $arg => $class;
  $self->call_self_plugins('after_new');
  return $self;
}

sub path {

 view all matches for this distribution


KeyedMutex-Memcached

 view release on metacpan or  search on metacpan

lib/KeyedMutex/Memcached.pm  view on Meta::CPAN

    croak('cache value should be object and appeared add and delete methods.')
      unless ( $args->{cache}
        && UNIVERSAL::can( $args->{cache}, 'add' )
        && UNIVERSAL::can( $args->{cache}, 'delete' ) );

    bless $args => $class;
}

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

 view all matches for this distribution


LV

 view release on metacpan or  search on metacpan

lib/LV/Backend/Tie.pm  view on Meta::CPAN

		my $caller = (caller(2))[3];
		$get ||= sub { require Carp; Carp::croak("$caller is writeonly") };
		$set ||= sub { require Carp; Carp::croak("$caller is readonly") };
	}
	
	bless [$get, $set] => $class;
}

sub FETCH
{
	&{shift->[0]};

 view all matches for this distribution


Lexical-Attributes

 view release on metacpan or  search on metacpan

t/Lowest.pm  view on Meta::CPAN

#

sub new {
    my $class = shift;

    bless {} => $class;
}

sub key1 {
    my $self = shift;
    $$self {key1};

 view all matches for this distribution


Lingua-Boolean-Tiny

 view release on metacpan or  search on metacpan

lib/Lingua/Boolean/Tiny.pm  view on Meta::CPAN

	our $VERSION   = '0.008';
	
	sub new
	{
		my $class = shift;
		bless [ grep defined, map "Lingua::Boolean::Tiny"->new_strict($_), @_ ] => $class;
	}
	
	sub boolean
	{
		my $self = shift;

 view all matches for this distribution


Lingua-FreeLing3

 view release on metacpan or  search on metacpan

lib/Lingua/FreeLing3/ChartParser.pm  view on Meta::CPAN

        carp "Cannot find chart tagger data file. Tried [$file]\n";
        return undef;
    }

    my $self = $class->SUPER::new($file);
    return bless $self => $class
}

=head2 C<parse>

Alias to C<analyze>.

 view all matches for this distribution


Lingua-Han-Cantonese

 view release on metacpan or  search on metacpan

lib/Lingua/Han/Cantonese.pm  view on Meta::CPAN

		my ($uni, $ct) = split(/\s+/);
		$ct{$uni} = $ct;
	}
	close(FH);
	$self->{'ct'} = \%ct;
	return bless $self => $class;
}

sub han2Cantonese {
	my ($self, $hanzi) = @_;

 view all matches for this distribution


Lingua-Han-PinYin

 view release on metacpan or  search on metacpan

lib/Lingua/Han/PinYin.pm  view on Meta::CPAN

    }
    close($fh);

    $args{'py'} = \%py;

    return bless \%args => $class;
}

sub han2pinyin1 {
    my ($self, $word) = @_;
    my $code = Unihan_value($word);

 view all matches for this distribution


Lingua-Han-Stroke

 view release on metacpan or  search on metacpan

lib/Lingua/Han/Stroke.pm  view on Meta::CPAN

		my ($uni, $st) = split(/\s+/);
		$st{$uni} = $st;
	}
	close(FH);
	$self->{'st'} = \%st;
	return bless $self => $class;
}

sub stroke {
	my ($self, $hanzi) = @_;
	my $code = Unihan_value($hanzi); # got the Unihan field 1

 view all matches for this distribution


Lingua-Identifier

 view release on metacpan or  search on metacpan

lib/Lingua/Identifier.pm  view on Meta::CPAN


=cut

sub new {

    return bless { languages => $classes }, __PACKAGE__;
}

=head2 C<languages>

Returns the list of codes for the active languages.

 view all matches for this distribution


Lingua-Identify-CLD

 view release on metacpan or  search on metacpan

lib/Lingua/Identify/CLD.pm  view on Meta::CPAN

=cut

sub new {
    my ($class, %options) = @_;
    my $self = {%options};
    return bless $self => $class # amen
}

=head2 identify

Receives a string, returns a language name. Following the text a set

 view all matches for this distribution


Lingua-LinkParser-FindPath

 view release on metacpan or  search on metacpan

lib/Lingua/LinkParser/FindPath.pm  view on Meta::CPAN

    my %arg = @_;
    if( ! ref $arg{parser} ){
        require Lingua::LinkParser;
        $arg{parser} = Lingua::LinkParser->new;
    }
    bless { parser => $arg{parser}, sentence => undef } => $class;
}

sub sentence {
    my $self = shift;
    $self->{sentence} = ref $_[0] ? shift : $self->{parser}->create_sentence(shift);

 view all matches for this distribution


Lingua-NATools

 view release on metacpan or  search on metacpan

lib/Lingua/NATools.pm  view on Meta::CPAN

        $self->{conf}->param("noLanguageIdentification" => 1);
    }

    $self->{conf}->write($self->{conf}->param("cfg"));

    return bless $self => $class
}



sub load {

 view all matches for this distribution


Lingua-TFIDF

 view release on metacpan or  search on metacpan

lib/Lingua/TFIDF/WordSegmenter/JA/MeCab.pm  view on Meta::CPAN

  args
    my $class => 'ClassName',
    my $mecab => +{ isa => 'Text::MeCab', optional => 1 };

  $mecab = Text::MeCab->new unless defined $mecab;
  bless +{ mecab => $mecab } => $class;
}

sub mecab { $_[0]->{mecab} }

sub segment {

 view all matches for this distribution


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