package TryOut;
use strict;
use warnings;
{
use Object::InsideOut;
my @data :Field( 'Standard' => 'data', 'Permission' => 'private');
}
####
#!/usr/bin/perl
use strict;
use warnings;
use TryOut;
my $obj = TryOut->new();
##
##
OIO::Internal error: Failure creating accessor for class 'TryOut'
Error: OIO::Method error: Can't call private method 'TryOut->get_data' from class 'Object::InsideOut'
Package: Object::InsideOut
File: /usr/local/share/perl/5.8.8/Object/InsideOut.pm
...
##
##
my @data :Field( 'Standard' => 'data', 'Permission' => 'private');