Re^2: Eliminating conditional code for GUI and text-mode operation

[gnosti]

in reply to Re: Eliminating conditional code for GUI and text-mode operation
in thread Eliminating conditional code for GUI and text-mode operation

I'm thrilled to begin getting this... although some hours are going by...

As stand-alone code, this example produces the expected output. As a module (built with the h2xs boilerplate) make test fails with:

Tried to use 'TestOO'. # Error: Can't locate object method "new" via package "UI::Graphical" at /media/jroth/ecmd-dev/TestOO/blib/lib/TestOO.pm line 56.

Any ideas about this? I just pasted this stuff into the 'precompiled methods go here' indicator in the boilerplate.

Is there a reason why the children would inherit 'new' from the superclass in one context and not in another?

package UI;
use Object::Tiny qw(dummy);
sub hello {print "superclass hello\n"};

package UI::Graphical;
@ISA = 'UI';
sub hello {print "make a window\n";}

my $ui = UI->new;
$ui->hello;
$ui = UI::Graphical->new;
$ui->hello;
1;

[ikegami]

Are you sure that's the code you ran? It should work. And it works for me.

>perl 655812.pl
superclass hello
make a window

use Object::Tiny qw(dummy);
can be written as
use Object::Tiny;
but not as
use Object::Tiny qw( ); or
use Object::Tiny ( );
You would get the error you showed if you did one of the latter two.

Also, if you have no members, you can use
$ui = 'UI'; instead of $ui = UI->new();, and
$ui = 'UI::Graphical'; instead of $ui = UI::Graphical->new();.
However, you'll probably need some members, so you might as well continue the way you are going.