Alexis Kalderimis > Object-New-0.03 > Object::New

Download:
Object-New-0.03.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.03   Source  

NAME ^

Object::New - A default constructor for standard objects

VERSION ^

Version 0.02

SYNOPSIS ^

When you want Moose, there is Moose, but when you just want to write "standard" Perl5 OO code, there is a bit of boilerplate, and "->new" is one bit of it. This module just does just one thing: provide a sane default constructor you can use for standard Perl5 objects. (A standard object is here taken to be a blessed hash.)

If you want anything else, there is lots out there: Moose, obviously, but also Object::Tiny, and Rose::Object and many others. This modules is simply an exercise in code reuse, and an attempt to avoid a common piece of boilerplate.

THE GUTS ^

The new routine in all its glory is:

    sub new {
        my $class = shift;
        my $object = {};
        bless $object, $class;
        if $object->can("init") {
            $object->init(@_);
        }
        return $object;
    }

So you get a blessed hash at the end. If your code has a init routine defined that an object in its namespace can access, it will call init as well, with the argument list passed to new.

To customise object construction, all you have to do is define an init routine:

  package POW;

  use Object::New;
  use feature "say";

  sub init {
    my $self = shift;
    my ($name, $rank, $serial_number) = @_;
    $self->set_name($name);
    $self->set_rank($rank);
    $self->set_serial_number($serial_number);
  }

  # attribute accessors defined here...

  sub interrogate {
    my $self = shift;
    say join(", ", $self->name, $self->rank, $self->serial_number);
  }

EXPORT ^

This module exports one routine by default: "new"

If you don't want to import this, you don't want to be using this module.

SUBROUTINES/METHODS ^

new

A default constructor. This returns a reference to a hash, blessed into its invoking class. If an init method is available, it is called with the argument list passed to the constructor.

AUTHOR ^

Alex Kalderimis, <alex at gmail dot com>

BUGS ^

Please report any bugs or feature requests to bug-object-new at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Object-New. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT ^

You can find documentation for this module with the perldoc command.

    perldoc Object::New

You can also look for information at:

ACKNOWLEDGEMENTS ^

LICENSE AND COPYRIGHT ^

Copyright 2011 Alex Kalderimis.

This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.

syntax highlighting: