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) {
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 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 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 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 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 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 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 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 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 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 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 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 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 release on metacpan or search on metacpan
lib/Math/Random/Cauchy.pm view on Meta::CPAN
middle => $args{middle},
random => $args{random},
cache => [],
};
bless $self => $class;
return $self;
}
=head2 rand
view release on metacpan or search on metacpan
lib/Math/Sequence.pm view on Meta::CPAN
formula => $parsed,
current => 0,
current_value => $start,
cache => [$start],
};
return bless $self => $class;
}
=item next()
The next() method returns the next element of the sequence and advances the
view release on metacpan or search on metacpan
lib/Math/Series.pm view on Meta::CPAN
current_value => $start,
cache => [$start],
iter_var => $iter_var,
start_index => $start_index,
};
return bless $self => $class;
}
=item next()
The next() method returns the next element of the series and advances the
view release on metacpan or search on metacpan
lib/Math/SimpleHisto/XS/Named.pm view on Meta::CPAN
my $struct = $Math::SimpleHisto::XS::JSON->decode($data);
$class = delete $struct->{class};
my $hclass = delete $struct->{histclass};
$struct->{hist} = $hclass->new_from_dump($type, delete $struct->{hist});
return bless($struct => $class);
}
# Can't simply be delegated, eventhough the implementation is the same :(
sub STORABLE_freeze {
my $self = shift;
view release on metacpan or search on metacpan
lib/Math/Symbolic/Custom/Pattern.pm view on Meta::CPAN
pattern => $pattern,
info => $info,
string => $proto->to_string(),
};
return bless $self => $class;
}
sub _descend_build {
my ($proto, $info) = @_;
view release on metacpan or search on metacpan
lib/Math/Symbolic/Custom/Transformation.pm view on Meta::CPAN
my $self = {
pattern => $pattern,
replacement => $replacement,
};
bless $self => $class;
return $self;
}
view release on metacpan or search on metacpan
lib/Math/Symbolic/Constant.pm view on Meta::CPAN
( ref($proto) ? %$proto : () ),
value => $value,
%args,
};
bless $self => $class;
}
=head2 Constructor zero
Arguments are treated as key-value pairs of object attributes.
view release on metacpan or search on metacpan
lib/Math/SymbolicX/Calculator.pm view on Meta::CPAN
my $self = {
stash => {},
history => [],
};
bless $self => $class;
return $self;
}