t/1.t

   1 # vim:ft=perl
   2 use Test::More 'no_plan';
   3
   4 package Fake::Loader;
   5
   6 package Fake::MVC;
   7 use base 'Apache::MVC';
   8
   9 sub set_database {
  10     my $self = shift;
  11     $self->config->{loader} = bless {}, Fake::Loader;
  12 }
  13
  14 sub get_request {}
  15
  16 sub parse_location {
  17     my $self = shift;
  18     my @pi = @Fake::MVC::url;
  19     shift @pi while @pi and !$pi[0];
  20     $self->{table} = shift @pi;
  21     $self->{action} = shift @pi;
  22     $self->{args} = \@pi;
  23 }