#!/usr/bin/perl -l
use strict;
use warnings;
use Class::Struct;

struct A => {
  b => '%',
};

my $obj = new A;

print $obj->can('b');
$obj->b('foo', "bar");  # call setter
print $obj->b('foo');

use Data::Dumper;
print Dumper $obj;


__END__
CODE(0x8b5570)
bar
$VAR1 = bless( {
                 'A::b' => {
                             'foo' => 'bar'
                           }
               }, 'A' );