Re: Object::InsideOut, I don't get it

Update: please disregard my advice here, as rhesa correctly points out below. I should have read the documentation for Object::InsideOut first.

Two observations:

You are missing sub new just before the beginning '{' in TryOut.pm.
You need a "1;" at the end of TryOut.pm

So edit TryOut.pm to look like this:

package TryOut;

use strict;
use warnings;

sub new
{
    use Object::InsideOut;
    my @data :Field( 'Standard' => 'data', 'Permission' => 'private');
    
}

1;
[download]

That will get rid of the error. You will still want to return an actual blessed object from the constructor new, of course.

Hope that helps!

@ARGV=split//,"/:L"; map{print substr crypt($_,ord pop),2,3}qw"PerlyouC READPIPE provides"

Comment on Re: Object::InsideOut, I don't get it Download Code

Replies are listed 'Best First'.
Re^2: Object::InsideOut, I don't get it by rhesa (Vicar) on Mar 05, 2006 at 17:18 UTC
You are missing sub new just before the beginning '{' in TryOut.pm Uhm, no, that's nonsense. See the Object::InsideOut docs please. There _is_ a bug with the "Standard" attribute, but I haven't been able to put my finger on it just yet. `my @data :Field('Accessor' => 'data');` does generate a `data` accessor. Adding the `Permission=>'private'` field results in `OIO::Method error: Can't call private method 'TryOut->data' from class + 'main' Package: main File: object-insideout Line: 19` [download] So that works as expected. I suspect the "Standard" attribute doesn't actually work as documented. Maybe time for a bug report :) Read more... My test script (515 Bytes)	[reply] [d/l] [select]
Re^3: Object::InsideOut, I don't get it by xdg (Monsignor) on Mar 05, 2006 at 18:56 UTC
There _is_ a bug with the "Standard" attribute, but I haven't been able to put my finger on it just yet I was surprised to see this bug so dug through the code a bit. The accessor generation is really woolly code, but as best as I can tell, the bug starts around line 1838, where the get accessors are defined -- it looks like the PRIVATE checks are added to code for later evaluation before the actually beginning of the declaration of the accessor -- so the check is called during the `eval` of the accessor code and thus fails during compilation. Please do file this bug -- jdhedden is very responsive about bug fixes. -xdg Code written by xdg and posted on PerlMonks is public domain. It is provided as is with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.	[reply] [d/l]
Re^4: Object::InsideOut, I don't get it by jdhedden (Deacon) on Mar 06, 2006 at 02:10 UTC
Thanks for finding this. I've uploaded a fixed version to CPAN. (I also added tests to the test suite for this.) I'd also like to mention that Object::InsideOut has a discussion forum on CPAN. Remember: There's always one more bug.	[reply]
Re^2: Object::InsideOut, I don't get it by xdg (Monsignor) on Mar 05, 2006 at 19:01 UTC
The brace style is particular to `Object::InsideOut` and not typical. There's additional commentary about it at AnnoCPAN. -xdg Code written by xdg and posted on PerlMonks is public domain. It is provided as is with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.	[reply] [d/l]