# POOL -> Perl Object Oriented: Extra Lazy
# should have an umlaut on the second O but it fell off.

package Acme::Pool;

use strict;
use warnings;
use feature 'say';
our $VERSION = '0.02';
use Moose();
use Moose::Exporter;

Moose::Exporter->setup_import_methods
    (also => 'Moose',
     with_meta => [ qw/hasrw hasrwd hasro hasrod hasstr/]
    );

sub hasrw
{
    my ($meta, $name, %options) = @_;
    $meta->add_attribute($name, is => 'rw', %options, );
}

sub hasrwd
{
    my ($meta, $name, $default, %options) = @_;
    $meta->add_attribute($name, is => 'rw', default => $default, %options, );
}

sub hasro
{
    my ($meta, $name, %options) = @_;
    $meta->add_attribute($name, is => 'ro', %options, );
}

sub hasrod
{
    my ($meta, $name, $default, %options) = @_;
    $meta->add_attribute($name, is => 'ro',  default => $default, %options, );
}

sub hasstr
{
    my ($meta, $spec, %options) = @_;
    my @words = split ' ', $spec;
    my $name = $words[0];
    $meta->add_attribute(@words, %options, );
}


return 1; # file loaded successfully
__END__