#!/usr/bin/perl
use strict;
use warnings;

package TryOut;
use strict;
use warnings;
{
    use Object::InsideOut;
    my @data :Field('Accessor' => 'data', Permission=>'private');
}

1;

package main;

my $obj = TryOut->new();
$obj->data(42);
print $obj->data;

__END__