view release on metacpan or  search on metacpan

lib/Apache/MVC.pm  view on Meta::CPAN

    }
    $self->ar($ar);
}

=item warn

=cut

sub warn {
  my ($self,@args) = @_;
  my ($package, $line) = (caller)[0,2];
  my $ar = $self->parent ? $self->parent->{ar} : $self->{ar};
  if ( $args[0] and ref $self ) {
    $ar->warn("[$package line $line] ", @args) ;
  } else {
    print "warn called by ", caller, " with ", @_, "\n";
  }
  return;
}

lib/CGI/Maypole.pm  view on Meta::CPAN

    $r->parse_path;
    $r->parse_args;
}

=item warn

=cut

sub warn {
    my ($self,@args) = @_;
    my ($package, $line) = (caller)[0,2];
    warn "[$package line $line] ", @args ;
    return;
}

=item parse_args

=cut

sub parse_args 
{

lib/Maypole/CLI.pm  view on Meta::CPAN

    $package->require;
    die "Couldn't require $package - $@" if $@;
    no strict 'refs';
    unshift @{ $package . "::ISA" }, "Maypole::CLI";
}

sub get_template_root { $ENV{MAYPOLE_TEMPLATES} || "." }

sub warn {
    my ($self,@args) = @_;
    my ($package, $line) = (caller)[0,2];
    warn "[$package line $line] ", @args ;
    return;
}

sub parse_location {
    my $self = shift;
    my $url  = URI->new( shift @ARGV );

    $self->preprocess_location();