Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Re: Re: OO: All Methods

by rkg (Hermit)
on Dec 15, 2003 at 11:48 UTC ( #314796=note: print w/replies, xml ) Need Help??

in reply to Re: OO: All Methods
in thread OO: All Methods

Well, the documentation is shockingly deficient; I intend immediately to send a nasty email to the author.
Errr... that'd be me. <g>

Seriously, my issue is with C:MM (actually, my subclass of it):
I think it created a list of Tables, but I can't seem to find them: $x->tables reports 'cannot find method "tables" at...'

package Foo; use MakeMethods constructor => 'new', required => [qw(name title tables)], object_list => [ 'Table' => 'tables'];
So thanks for advice.

Any pointers around the monastery to a code snippet that does the walk you describe?
Couldn't find any w/ SuperSearch or Google, trying not to reinvent wheels.

Thanks, Abigail-II --


Replies are listed 'Best First'.
Re: OO: All Methods
by Abigail-II (Bishop) on Dec 15, 2003 at 12:04 UTC
    Here's something I quickly hacked together. It might need some work:
    #!/usr/bin/perl use strict; use warnings; my $class = shift; eval "use $class"; die $@ if $@; # First, find all the classes, and the ones it inherits. my %classes = ($class => 1); my @classes = ($class); while (@classes) { my $class = pop @classes; no strict 'refs'; foreach my $class (@{"$class\::ISA"}) { next if $classes {$class} ++; push @classes => $class; } } # Then find the subs in those classes. while (my $class = each %classes) { no strict 'refs'; print "From class '$class':\n"; while (my $entry = each %{"$class\::"}) { print "\t$entry\n" if defined &{"$class\::$entry"}; } } __END__
    Calling this with IO::File as argument gives:
    From class 'IO::Seekable': sysseek setpos croak confess getpos carp tell seek From class 'IO::File': qualify new confess ungensym open qualify_to_ref gensym croak new_tmpfile carp From class 'IO::Handle': qualify setvbuf format_write fcntl format_lines_per_page print sysread format_top_name input_record_separator SEEK_SET stat confess opened flush eof _open_mode_string syswrite error _IONBF format_formfeed format_page_number sync truncate constant croak SEEK_CUR gets carp fdopen getc untaint read new fileno clearerr write format_line_break_characters blocking format_name ungetc autoflush setbuf ioctl DESTROY ungensym _IOFBF qualify_to_ref _IOLBF output_record_separator gensym close getline output_field_separator printf formline format_lines_left SEEK_END printflush getlines input_line_number new_from_fd From class 'Exporter': export_fail export_tags export_ok_tags export import as_heavy require_version export_to_level
Re: Re: Re: OO: All Methods
by simonm (Vicar) on Dec 15, 2003 at 17:54 UTC
    I'm a long-time C::MM user and contributor, and at first glance, your code looks fine.

    You might want to double-check that the expected methods are being installed as you expect. You could add a logging install_methods in your subclass:

    sub install_methods { my ($class, %methods) = @_; my $target = $class->find_target_class; my $methods = join ', ', keys %methods; warn "Installing $methods in $target\n"; $class->SUPER::install_methods( %methods ); }

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://314796]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (2)
As of 2023-06-04 05:13 GMT
Find Nodes?
    Voting Booth?
    How often do you go to conferences?

    Results (17 votes). Check out past polls.