Lines Matching refs:fields
11 BEGIN { use_ok('fields'); }
16 use fields qw(_no Pants who _up_yours);
17 use fields qw(what);
19 sub new { fields::new(shift) }
31 my $fields = \%{$base.'::FIELDS'};
32 return grep { ($fields::attr{$base}[$fields->{$_}] & $mask) == $mask}
33 keys %$fields;
36 is_deeply( [sort &show_fields('Foo', fields::PUBLIC)],
38 is_deeply( [sort &show_fields('Foo', fields::PRIVATE)],
70 eval { $phash = fields::phash(name => "Joe", rank => "Captain") };
80 # check if fields autovivify
83 use fields qw(foo bar);
84 sub new { fields::new($_[0]) }
96 use fields qw(a b c);
99 my $self = fields::new(shift);