view release on metacpan or search on metacpan
lib/Sub/HandlesVia/Toolkit/SubAccessorSmall.pm view on Meta::CPAN
our @ISA = 'Sub::HandlesVia::Toolkit';
$ISA[0]->VERSION( '0.025' );
sub new {
my $class = shift;
bless { @_ } => $class;
}
sub _attr {
shift->{attr};
}
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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 release on metacpan or search on metacpan
lib/Log/Dispatch/UnixSyslog.pm view on Meta::CPAN
my $self = {
ident => $arg{ident},
facility => scalar $const->(),
};
bless $self => $class;
# this is our duty as a well-behaved Log::Dispatch plugin
$self->_basic_init(%arg);
# hand wringing: What if someone is re-openlog-ing after this? Well, they
view release on metacpan or search on metacpan
lib/Log/Dispatchouli/Proxy.pm view on Meta::CPAN
debug => $arg->{debug},
proxy_prefix => $arg->{proxy_prefix},
proxy_ctx => $arg->{proxy_ctx},
};
bless $guts => $class;
}
sub proxy {
my ($self, $arg) = @_;
$arg ||= {};
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 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 release on metacpan or search on metacpan
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 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 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 release on metacpan or search on metacpan
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 release on metacpan or search on metacpan
my $self = { _mp_file => $file,
_mp_id3v1 => undef,
_mp_id3v2 => undef,
_mp_header => undef,
_mp_v2header => undef,};
bless $self => $class;
}
=pod
=over 4
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) {