Skip Menu |
 

This queue is for tickets about the Object-InsideOut CPAN distribution.

Report information
The Basics
Id: 17986
Status: resolved
Priority: 0/
Queue: Object-InsideOut

People
Owner: Nobody in particular
Requestors: johan.laenen [...] google.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: 1.38



Subject: my @data :Field( 'Standard' => 'data', 'Permission' => 'private');
Download (untitled) / with headers
text/plain 267b
When I try out a simple Object::InsideOut class with only one line (see subject) I get an error when I try to instantiate the class. The documentation shows the line from the subject in question but running it gives a failure while creating an accessor for the class.
Subject: TryOut.pm
Download TryOut.pm
text/x-perl 516b
package TryOut; { use strict; use warnings; use Object::InsideOut; my @data :Field( 'Standard' => 'data', 'Permission' => 'private'); sub johan { my $self = shift; $self->set(\@data, "johan" ); } sub get_johan { my $self = shift; return $data[ $$self ]; } } package TryOutTest; { use strict; use warnings; use Object::InsideOut qw/TryOut/; sub foo { my $self = shift; return $self->get_johan; } } 1;
Subject: main.pl
Download main.pl
text/x-perl 209b
#!/usr/bin/perl use strict; use warnings; use TryOut; my $obj = TryOut->new(); $obj->johan(); print $obj->get_johan() . "\n"; my $obj2 = TryOutTest->new(); $obj2->johan(); print $obj2->get_johan() . "\n";
Fixed in version 1.38.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.