Perl class question

I'm trying to do some fancy-schmancy factory method stuff with bless in Perl:

MyStuff/Foo.pm:

\npackage MyStuff::Foo;\n\nuse strict;\nuse MyStuff::OSDetectionAndOtherThings;\n\nsub new\n{\n    $class = "FooUnix" if Unix();\n    $class = "FooWindows" if Windows();\n\n    # Funky Cold Factory Voodoo\n    return bless $self, $class;\n}\n\nsub run\n{\n    my $self = shift;\n    # do some stuff\n    $self->some_stuff();\n}\n

MyStuff/FooUnix.pm:

\npackage MyStuff::FooUnix;\n\nuse strict;\n\nuse MyStuff::Foo;\nuse base ("Foo");\n\nsub some_stuff\n{\n    my $self = shift;\n    # etc.\n}\n

Now, to use it:

\nuse strict;\nuse MyStuff::Foo;\n\nsub main\n{\n    my $runner = MyStuff::Foo->new;\n    $runner->run();\n}\n\nmain();\n

Error upon running this:

Can't locate object method "run" via package "FooUnix" at blah.pl line 7.

And my questions:

Can I do what I'm trying to do; ie. bless a class into a particular subclass at runtime based on OS.
If so, how do I do it properly? :-)

Post #77,323 by admin 1/27/03 6:19:43 PM Reply	Perl class question I'm trying to do some fancy-schmancy factory method stuff with bless in Perl: MyStuff/Foo.pm: \npackage MyStuff::Foo;\n\nuse strict;\nuse MyStuff::OSDetectionAndOtherThings;\n\nsub new\n{\n $class = "FooUnix" if Unix();\n $class = "FooWindows" if Windows();\n\n # Funky Cold Factory Voodoo\n return bless $self, $class;\n}\n\nsub run\n{\n my $self = shift;\n # do some stuff\n $self->some_stuff();\n}\n MyStuff/FooUnix.pm: \npackage MyStuff::FooUnix;\n\nuse strict;\n\nuse MyStuff::Foo;\nuse base ("Foo");\n\nsub some_stuff\n{\n my $self = shift;\n # etc.\n}\n Now, to use it: \nuse strict;\nuse MyStuff::Foo;\n\nsub main\n{\n my $runner = MyStuff::Foo->new;\n $runner->run();\n}\n\nmain();\n Error upon running this: Can't locate object method "run" via package "FooUnix" at blah.pl line 7. And my questions: Can I do what I'm trying to do; ie. bless a class into a particular subclass at runtime based on OS. If so, how do I do it properly? :-) Regards, -scott anderson "Welcome to Rivendell, Mr. Anderson..."
Post #77,330 by admin 1/27/03 6:24:59 PM 1/27/03 6:32:26 PM Reply	Answering my own question: Changing the bless to "MyStuff::FooUnix" worked. Regards, -scott anderson "Welcome to Rivendell, Mr. Anderson..." Edited by admin Jan. 27, 2003, 06:28:22 PM EST Edited by admin Jan. 27, 2003, 06:32:26 PM EST Expand All History
Post #77,401 by a6l6e6x 1/27/03 9:50:58 PM Reply	In only 5 minutes! :) Alex "No man's life, liberty, or property are safe while the legislature is in session."\t-- Mark Twain
Post #77,711 by Ashton 1/29/03 1:44:45 AM Reply	You can lead a Foo to Unix but you can't Foolinux
Post #77,715 by altmann 1/29/03 2:21:35 AM Reply	Sure you can [link\|http://nysv.org/foolinux/about.shtml\|http://nysv.org/foolinux/about.shtml] -- Chris Altmann
Post #77,718 by Ashton 1/29/03 3:59:46 AM Reply	!! Who'd a thunk_____Every pun's a title now!

Welcome to IWETHEY!