#!/usr/bin/perl

use lib 'lib';
use strict;
use warnings;
use feature 'say';
use Data::Dumper;

package Testzool
{
    use Acme::Pool;

    # normal
    has qw'name is rw default rosemary';

    # readonly with default value
    hasrod 'favfood', 'pizza';

    # readwrite with default value
    hasrwd 'age', 111;

    # readonly
    hasro qw'id default 1234567';
    # readwrite
    hasrw 'cash';

    # make has() from string
    hasstr 'height is rw default 1456';

};

package main;

run();

sub run
{
    my $obj = Testzool->new;
    $obj->cash(86);
    say "obj = ", Dumper($obj);
}