view release on metacpan or  search on metacpan

lib/XML/Parser/LiteCopy.pm  view on Meta::CPAN

sub new {
    my $class = shift;

    return $class if ref $class;
    my $self = bless {} => $class;

    my %parameters = @_;
    $self->setHandlers(); # clear first
    $self->setHandlers(%{$parameters{Handlers} || {}});

 view release on metacpan or  search on metacpan

lib/XML/Smart/HTMLParser.pm  view on Meta::CPAN

sub new { 
  my $this = shift ;
  my $class = ref($this) || $this ;
  return $this if ref $this ;

  $this = bless {} => $class ;
  
  _unset_sig_warn() ;
  my %args = @_ ;
  _reset_sig_warn() ;
  $this->setHandlers(%args) ;

 view release on metacpan or  search on metacpan

lib/XMLRPC/Test.pm  view on Meta::CPAN

package My::PingPong; # we'll use this package in our tests

sub new {
  my $self = shift;
  my $class = ref($self) || $self;
  bless {_num=>shift} => $class;
}

sub next {
  my $self = shift;
  $self->{_num}++;

 view release on metacpan or  search on metacpan

lib/XS/Framework/Manual/SVAPI/Stash.pod  view on Meta::CPAN

This C<bless> method version works somewhat similiar to the following Perl
construction

    my $class = ...;
    my $obj = ...;
    return bless $obj => $class;

i.e. if C<what> is already an object, it is blessed into the C<Stash>,
otherwise new C<RV*> created from the C<what> argument, and the
blessed object returned.

 view release on metacpan or  search on metacpan

lib/ZMachine/ZSCII.pm  view on Meta::CPAN

      if exists $guts->{zscii_for}{ $unicode_char };

    $guts->{zscii_for}{ $unicode_char } = $zscii_char;
  }

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

  # The default alphabet is entirely made up of characters that are the same in
  # Unicode and ZSCII.  If a user wants to put "extra characters" into the
  # alphabet table, though, the alphabet should contain ZSCII values.  When
  # we're building a ZMachine::ZSCII using the contents of the story file's

 view release on metacpan or  search on metacpan

local/lib/perl5/App/Cmd/Command.pm  view on Meta::CPAN

#pod
#pod =cut

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

#pod =method execute
#pod
#pod   $command_plugin->execute(\%opt, \@args);

 view release on metacpan or  search on metacpan

lib/aliased/factory.pm  view on Meta::CPAN

=cut

my $new_factory = sub {
  my $class = shift;
  bless \(shift) => $class;
};

my $err;

my $load = sub {

 view release on metacpan or  search on metacpan

lib/Net/Delicious/Simple.pm  view on Meta::CPAN

	return unless my $del = Net::Delicious->new({
    %$config,
    updates => File::Temp::tempdir(CLEANUP => 1),
  });

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

=head2 tags

This returns all of your tags, in a list.

 view release on metacpan or  search on metacpan

lib/Git/Deploy/Hook.pm  view on Meta::CPAN

use strict;
use warnings FATAL => "all";

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

1;

 view release on metacpan or  search on metacpan

lib/macro.pm  view on Meta::CPAN

}

sub new :method{
	my($class) = @_;

	return bless {} => $class;
}

sub defmacro :method{
	my $self = shift;

 view release on metacpan or  search on metacpan

lib/ModPerl/CScan.pm  view on Meta::CPAN

        "$Cpp->{cppstdin} $Defines $addincludes $Cpp->{cppflags} $filename |" :
        "echo '\#include \"$filename\"' | $Cpp->{cppstdin} $Defines $addincludes $Cpp->{cppflags} $Cpp->{cppminus} | grep -v '^#' |";
    #my $cmd = "echo '\#include <$filename>' | $Cpp->{cppstdin} $Defines $addincludes $Cpp->{cppflags} $Cpp->{cppminus} |";

    (open($sym, $cmd) or die "Cannot open pipe from `$cmd': $!")
      and bless $sym => $class;
}

sub text {
  my $class = shift;
  my $filter = shift;

 view release on metacpan or  search on metacpan

Porting/corelist-perldelta.pl  view on Meta::CPAN

  use Pod::Simple::SimpleTree;

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

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

    my $parsed_pod = Pod::Simple::SimpleTree->new->parse_file($input)->root;
    splice @{ $parsed_pod }, 0, 2; # we don't care about the document structure,
                                   # just the nodes within it

 view release on metacpan or  search on metacpan

Tie/Scalar.pm  view on Meta::CPAN

@ISA = (Tie::Scalar);

sub TIESCALAR {
    my $class = shift;
    my $instance = shift || undef;
    return bless \$instance => $class;
}

sub FETCH {
    return ${$_[0]};
}

 view release on metacpan or  search on metacpan

lib/POP/Lazy_object_hash.pm  view on Meta::CPAN

sub TIEHASH {
  my($type, $class, $name, $parent, $pids) = @_;
  my $pm = $class;
  $pm =~ s,::,/,g;
  $pm .= '.pm';
  return bless {'class' => $class,
                'pm' => $pm,
		'name' => $name,
		'parent' => Devel::WeakRef::->new($parent),
                'hash' => $pids}, $type;
}

 view release on metacpan or  search on metacpan

lib/roles.pm  view on Meta::CPAN

        use roles 'Comparable', 'Printable';

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

        sub compare {
            my ($self, $other) = @_;
            $self->{amount} <=> $other->{amount};

 view release on metacpan or  search on metacpan

cpansmokebox/inc/bundle/Test/Reporter/Transport/File.pm  view on Meta::CPAN

  my ($class, $dir) = @_;

  die "target directory '$dir' doesn't exist or can't be written to"
    unless -d $dir && -w $dir;

  return bless { dir => $dir } => $class;
}

sub send {
    my ($self, $report) = @_;
    $report->dir( $self->{dir} );

 view release on metacpan or  search on metacpan

lib/Audio/SuperTag/Plugin/FLAC.pm  view on Meta::CPAN

sub new {
  my $this = shift;
  my $class = ref($this) || $this;
  my $file = shift;
  my $flac = Audio::FLAC::Header->new($file);
  return bless [ $flac, $file ] => $class;
}

sub file {
  return shift->[1];
}

 view release on metacpan or  search on metacpan

lib/uny2k.pm  view on Meta::CPAN

    my $self = {};
    $self->{_Year}      = $year;
    $self->{_Reaction}  = $reaction || 'die';

    return bless $self => $class;
}


sub stringize {
    return shift->{_Year};

 view release on metacpan or  search on metacpan

vptk_w/Project.pm  view on Meta::CPAN

sub new { # default constructor
  my $class = shift;
  my $this  = {list=>[],data=>{}};

  bless $this => $class;
}

sub init { # just clean all
  my $this = shift;
  my $pData = shift;