#! /usr/bin/perl

package Class::InsideOut::Accessor;
use strict;
use warnings;
use Filter::Simple;
our $VERSION = 0.01;

sub add_accessor {
    my $name = shift;
    qq[sub $name {
        my \$self = shift->self;
        \@_ ? \$$name\{\$self\} = shift : \$$name\{\$self\};
    };];
};

FILTER {
    s [
        ( \b (my|our) \s* %(\w+) \s* : \s* Field \s* ; )
    ] [ $1 . add_accessor($3) ]gxse;
    s [
        ( \b (my|our) \s* \( \s* ( .*? ) \s* \) \s* : \s* Field ; )
    ] [ 
        $1 . join(
            '', map {add_accessor(substr($_,1))} split(/\s*,\s*/, $3)
        );
    ]gxse;
};

1;