view release on metacpan or  search on metacpan

t/Acme-RightSideOutObject.t  view on Meta::CPAN

#########################

use strict;
use warnings;

use Test::More tests => 6;

package My::Class;

use Class::InsideOut qw( public readonly private register id );

public     name => my %name;    # accessor: name()
readonly   ssn  => my %ssn;     # read-only accessor: ssn()
private    age  => my %age;     # no accessor

sub new { register( shift ) }

sub greeting {
  my $self = shift;
  return "Hello, my name is $name{ id $self }";
}