Lines Matching refs:func
879 my @func = defined $_[1] ? @{$_[1]} : @{$def_func};
894 my $func;
898 foreach $func ( @func )
900 if (ref($func) eq 'HASH')
902 push @class, (keys %$func)[0];
903 $func = (values %$func)[0];
915 foreach my $i ( 0..$#func )
918 $func = $func[$i];
921 if (ref($func) eq 'CODE')
922 { ($field,$rem,$pref) = @bits = $func->($$textref);
925 elsif (ref($func) eq 'Text::Balanced::Extractor')
926 { @bits = $field = $func->extract($$textref) }
927 elsif( $$textref =~ m/\G$func/gc )