Mouse role fails

Hi, i'm playing around with Mouse roles and got stuck.

Role #1:

package ReadFile;

use Mouse::Role;
use MyTypes;
use IO::File;

requires qw(lines);

has '_io' => (
    is       => 'ro',
    isa      => 'MyCompany::ReadFile',
    builder  => '_build_read_file',
    handles  => [ qw( open getlines close) ],
    init_arg => undef,
    lazy     => 1,
);

sub _build_read_file() {
    my $self = shift;
    IO::File->new();
}

# sub read_file() {
#     my ( $self, $file ) = @_;
#     $self->open( $file);
#     my @lines = $self->getlines();
#     $self->close();
#     chomp(@lines);
#     $self->lines(\@lines);
# }

1;
[download]

This one fails on init with the followings errors:

Could not load class (ReadFile) because : Undefined subroutine &IO::Handle::_create_getline_subs called at C:/strawberry/perl/lib/IO/Handle.pm line 434.

In Handle.pm Line 434: # Special XS wrapper to make them inherit lexical hints from the caller. _create_getline_subs(<<'END' ) or die $@;

Compilation failed in require at C:/strawberry/perl/lib/IO/Seekable.pm line 101.

In Seekable.pm line 101: use IO::Handle ();

Compilation failed in require at C:/strawberry/perl/lib/IO/File.pm line 133.

In File.pm line 133: use IO::Seekable;

But the next one works.

Role #2:

package DBIxODBC;

use Mouse::Role;
use MyTypes;
use DBIx::Simple;

requires qw( user passwd dsn );

with qw(Timestamp);

has 'data' => (
    is      => 'rw',
    isa     => 'HashRef',
    trigger => \&_load,
);

has '_dbix' => (
    is      => 'ro',
    isa     => 'MyCompany::DBIx',
    handles => [qw( insert)],
    builder => '_build_dbix',
    init_arg => undef,
    lazy    => 1,
);

sub _build_dbix() {
    my $self = shift;
    my $connect_string;
    $connect_string = "dbi:ODBC:" . $self->dsn;
    DBIx::Simple->new( $connect_string, $self->user, $self->passwd );
}

sub _load() {
    my ( $self, $input ) = @_;
    my $table = ( keys %$input )[0];
    $self->insert( $table, $input->{$table} );
    print $self->timestamp . qq(\n);
}

1;
[download]

Thank you very much for any advice.

Best regards,

Karl

Comment on Mouse role fails Select or Download Code
Re: Mouse role fails by tobyink (Prior) on Nov 02, 2012 at 12:59 UTC
It looks like there may be a problem with your copy of IO::Handle. Does this script work OK for you? `use IO::Handle; STDOUT->print("Type some text and hit enter.\n"); STDOUT->print("Type 'quit' or 'exit' when you've finished.\n\n"); while (my $x = STDIN->getline) { last if $x =~ /^\s*(quit\|exit)/i; STDOUT->print($x); }` [download] `perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'`	[reply] [d/l]
Re^2: Mouse role fails by karlgoethebier (Friar) on Nov 02, 2012 at 13:17 UTC
It works as expected.	[reply]
Re^2: Mouse role fails by karlgoethebier (Friar) on Nov 02, 2012 at 14:03 UTC
Hi, this code fails with Active State Perl and Strawberry but is OK on a linux box: `use IO::File; use Data::Dumper; my $fh = IO::File->new(); $fh->open(shift); my @lines = $fh->getlines(); undef $fh; print Dumper (@lines);` [download] Perl versions: Strawberry: This is perl 5, version 16, subversion 1 (v5.16.1) built for MSWin32-x86-multi-thread Active State: This is perl 5, version 14, subversion 2 (v5.14.2) built for MSWin32-x86-multi-thread Linux Box Perl: This is perl, v5.8.8 built for x86_64-linux-thread-multi It seems that the role didn't fail but IO::File/IO::Handle does(same errors), as you assumed. Regards and thank you, Karl	[reply] [d/l]
Re^3: Mouse role fails by tobyink (Prior) on Nov 02, 2012 at 14:44 UTC
~~If ActiveState and Strawberry are on the same box, it might be that they are getting confused about their libraries. XS libraries built for one are very unlikely to run correctly on the other.~~ Looks like I somehow duplicated this post instead of updating it! `perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'`	[reply]
Re^3: Mouse role fails by tobyink (Prior) on Nov 02, 2012 at 14:45 UTC
If ActiveState and Strawberry are on the same box, it might be that they are getting confused about their libraries. XS libraries built for one are very unlikely to run correctly on the other. Also, for what it's worth, Moo is gaining traction over Mouse as a light-weight Moose replacement. Although its surface syntax is less Moose-compatible, its killer feature is that if Moo detects that Moose has been loaded, it can inflate Moo classes and roles into full Moose classes and roles. `perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'`	[reply]
Re^4: Mouse role fails by karlgoethebier (Friar) on Nov 04, 2012 at 19:19 UTC
Re^5: Mouse role fails by tobyink (Prior) on Nov 04, 2012 at 19:45 UTC
Some notes below your chosen depth have not been shown here
Re^3: Mouse role fails by VinsWorldcom (Priest) on Nov 02, 2012 at 15:15 UTC
Am I missing what this is (not) supposed to do? Seems to work fine for me on Windows 7 x64 and Strawberry 5.16.1 (64-bit): `VinsWorldcom@C:\Users\VinsWorldcom\tmp> ver Microsoft Windows [Version 6.1.7601] VinsWorldcom@C:\Users\VinsWorldcom\tmp> perl -v This is perl 5, version 16, subversion 1 (v5.16.1) built for MSWin32-x +64-multi-thread VinsWorldcom@C:\Users\VinsWorldcom\tmp> perl test.pl test.pl $VAR1 = 'use IO::File; '; $VAR2 = 'use Data::Dumper; '; $VAR3 = 'my $fh = IO::File->new(); '; $VAR4 = '$fh->open(shift); '; $VAR5 = 'my @lines = $fh->getlines(); '; $VAR6 = 'undef $fh; '; $VAR7 = 'print Dumper (@lines);';` [download]	[reply] [d/l]
Re^4: Mouse role fails by tobyink (Prior) on Nov 02, 2012 at 20:26 UTC
Re^4: Mouse role fails by Anonymous Monk on Nov 04, 2012 at 18:39 UTC
Re^2: Mouse role fails by karlgoethebier (Friar) on Nov 02, 2012 at 18:54 UTC
Hi all, here is what i did to fix this issue for Active State Perl: `C:/perl/bin/perl.exe -MCPAN -e shell` Then: `cpan> upgrade File::IO` Sorry i didn't capture the output - i was a little bit annoyed and impatient. But it worked. For Strawberry was no upgrade available. To figure out this issue (two Perl installations on same system), i will throw away all Perl on my box and restart with Active State Perl. Regards, Karl	[reply] [d/l] [select]


Perl-Sensitive Sunglasses
	PerlMonks

Mouse role fails

The best material for plates (tableware) is: