NAME
Noose - just enough object orientation to hang yourself
VERSION
version 0.001
DESCRIPTION
Moose led to Mouse led to Moo led to Mo led finally to M, which gives you the least object-orientation possible, which is none at all. Noose continues this illustrious trend.
Noose gives you just enough object orientation to hang yourself.
METHODS
import
Imports the "new" constructor into your class.
new
You can use "import" to bring new into your class, and it will become a constructor that blesses any key-value pairs provided into an object of the specified class. This is probably not very useful if you are trying not to hang yourself, hint hint.
Simply use Noose to give your class a new method. When the method is called with some key-value pairs, a new object of the specified class is created with the given attributes. Methods are created for each attribute, in the familiar accessor form: calling the method with no arguments just returns the current value for that attribute; calling the method with an argument sets the attribute to that value. No checking of any kind is performed.
Controlling object construction
If you need to have attributes that shouldn't be given in the contructor, or if you want to have any amount of control over object construction at all (which is proably a good idea), then give the empty list when loading Noose, and write a constructor that provides the attributes.
You can use the same technique to override parameters the caller gives you, add new ones, provide defaults, filter or alter values, die if invalid data is provided etc.
package Fancy;
use Noose ();
sub new {
my $class = shift;
my %args = @_;
die 'RTFM' unless $args{make_it_go};
$args{fancy} = 1;
$args{useful} = 0;
return Noose::new($class, %args);
}
# class body
sub method { ... }See examples/2.pl for another example of this technique.
Using the constructor to clone an object
If you call new as an object method, then you will get a clone of the object, unless you used some parameters, in which case those parameters will be used to create accessors just like with normal object creation. If there already were accessors by those names, then the new values will prevail.
See examples/3.pl for example usage.
EXAMPLES
See the examples subdirectory.
CAVEATS
In case it isn't obvious, you should not actually use Noose. It has an Acme:: module in the dependency tree, for crying out loud!
AVAILABILITY
The latest version of this module is available from the Comprehensive Perl Archive Network (CPAN). Visit http://www.perl.com/CPAN/ to find a CPAN site near you, or see https://metacpan.org/module/Noose/.
SOURCE
The development version is on github at http://github.com/doherty/Noose and may be cloned from git://github.com/doherty/Noose.git
BUGS AND LIMITATIONS
You can make new bug reports, and view existing ones, through the web interface at https://github.com/doherty/Noose/issues.
AUTHOR
Mike Doherty <doherty@cpan.org>
COPYRIGHT AND LICENSE
This software is copyright (c) 2012 by Mike Doherty.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.