Hello! Is there any easy way to get all attributes names?
I tried to get it via ISA but I also got methods names... I just want to get "propA" and "propB"... Could someone please help me? My example: #!/usr/bin/env perl package A; use Mojo::Base -base; has propA => 123; has propB => 'val'; sub get_props_names { my $self = shift; my %names = (); { my $base_class = ref($self); no strict 'refs'; foreach my $class ($base_class, @{"${base_class}::ISA"}) { foreach my $name (keys %{"${class}::"}) { $names{$name} ||= 1; } } }; return [sort keys %names]; } package main; use Mojo::Base -strict; use Data::Dumper; my $obj = A->new; say Dumper($obj->get_props_names); -- You received this message because you are subscribed to the Google Groups "Mojolicious" group. To unsubscribe from this group and stop receiving emails from it, send an email to mojolicious+unsubscr...@googlegroups.com. To post to this group, send email to mojolicious@googlegroups.com. Visit this group at https://groups.google.com/group/mojolicious. For more options, visit https://groups.google.com/d/optout.