Try subclassing with something like this: 

package Zoo::Animal;
## it's a hashref!
my $count = {};  
sub new {
  ## get the first argument, could be a blessed object or a package na
+me  my $type = shift;  
  ## get the package name
  my $class = ref $type || $type;  
  my $self = bless {} $class;
  ## get the name of the animal
  my ($animal) = $class =~ /^Zoo::Animal::(.+)$/;
  $count->{$animal}++;
  return $self->_init(@_);  ## call the animal's init method and retur
+n what it returns
}

## does nothing in package Zoo::Animal
sub _init {} 

####
package Zoo::Animal::Camel

## no sub new

sub _init {
  $self = shift;
  ### blah blah blah
  $self->{title} = "Programming Perl";
  return $self;
}
...
# will call Zoo::Animal::new() then Zoo::Animal::Camel::_init()
my $camel = Zoo::Animal::Camel->new();

[download]
-hth
Sidharth.

$will->code for @food or $$;

In reply to Re: Creating Common Constructor by smalhotra
in thread Creating Common Constructor by DeadPoet

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.