view release on metacpan or  search on metacpan

lib/CGI/FormMagick/Utils.pm  view on Meta::CPAN

$fm->parse_xml(); # suck in structure without display()ing

=end testing


=cut

sub debug_msg {
    my $self = shift;
    my $msg = shift;
    my ($sub, $line) = (caller(1))[3,2];
    print qq(<p class="debug">$sub $line: $msg</p>) if $self->{debug};
}

=head2 $fm->get_page_by_name($name)

get a page given the name attribute.  Returns the numeric index of
the page, suitable for $wherenext.

=for testing
is($fm->get_page_by_name('Personal'), 0, "get page by name");