Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: Enumerating all attributes of a Moo object

by frozenwithjoy (Priest)
on Jul 08, 2013 at 22:37 UTC ( #1043202=note: print w/replies, xml ) Need Help??


in reply to Enumerating all attributes of a Moo object

Moo(se) objects are essentially hashrefs, so you can just do this:

print "$_\n" for keys %{$moo_object};

Replies are listed 'Best First'.
Re^2: Enumerating all attributes of a Moo object
by zwon (Abbot) on Jul 09, 2013 at 16:51 UTC
    Note, that this will not show attributes that are not set:
    use 5.010; use strict; use warnings; { package Foo; use Moose; has bar => ( is => 'rw' ); has baz => ( is => 'rw' ); } my $foo = Foo->new( bar => 1 ); say join "\n", keys %$foo; __END__ bar

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1043202]
help
Chatterbox?
[Corion]: ambrus: Yeah, hopefully it's that
[1nickt]: I am stumped, maybe someone brainy can clear my mind?
[1nickt]: This code does what I expect on the CLI: perl -wE 'sub x { 0 and 1 } say x()'
[1nickt]: (prints "0")
[Corion]: Hi 1nickt!
[1nickt]: When I put it in a file, I get the following: "Replacement list is longer than search list at 1290.pl line 4. syntax error at 1290.pl line 4, at EOF ...
[1nickt]: ... (Might be a runaway multi-line ;; string starting on line 3)"
[erix]: ( ha, the inmates of the retirement home have taken the kids to the cafe -- Good! :) )
[1nickt]: (there are three lines in the file)
[erix]: na namesti ( "At The German" ? )

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (5)
As of 2017-12-12 13:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What programming language do you hate the most?




















    Results (332 votes). Check out past polls.

    Notices?