View on
MetaCPAN is shutting down
For details read Perl NOC. After June 25th this page will redirect to
Nicolas R. > Simple-Accessor-0.10 > Simple::Accessor



Annotate this POD


Open  0
View/Report Bugs
Module Version: 0.10   Source   Latest Release: Simple-Accessor-1.11

NAME Simple::Accessor - very simple, light and powerful accessor ^


version 0.10


Simple::Accessor provides a simple object layer without any dependency. It can be used where other ORM could be considered too heavy. But it has also the main advantage to only need one single line of code.

It can be easily used in scripts...

Usage ^

Create a package and just call Simple::Accessor. The new method will be imported for you, and all accessors will be directly accessible.

    package MyClass;
    # that s all what you need ! no more line required
    use Simple::Accessor qw{foo bar cherry apple};

You can now call 'new' on your class, and create objects using these attributes

    package main;    
    use MyClass;

    my $o = MyClass->new() 
        or MyClass->new(bar => 42) 
        or MyClass->new(apple => 'fruit', cherry => 'fruit', banana => 'yummy');

You can get / set any value using the accessor

    is $o->bar(), 42;
    is $o->bar(), 51;

You can provide your own init method that will be call by new with default args. This is optional.

    package MyClass;

    sub initialize {
        my ($self, %opts) = @_;

You can also provide individual initializers

    sub _initialize_bar {
        # will be used if no value has been provided for bar

    sub _initialize_cherry {

You can even use a very basic but useful hook system. Any false value return by before or validate, will stop the setting process. Be careful with the after method, as there is no protection against infinite loop.

    sub _before_foo {
        my ($self, $v) = @_;
        # do whatever you want with $v
        return 1 or 0;

    sub _validate_foo {
        my ($self, $v) = @_;
        # invalid value ( will not be set )
        return 0 if ( $v == 42);
        # valid value
        return 1;        

    sub _after_cherry {
        my ($self) = @_;
        # use the set value for extra operations


None. The only public method provided is the classical import.


You can contribute to this project on github

syntax highlighting: