blargh.diff

   1 --- /home/devin/web-devel/Catalyst-Devel/1.00/branches/helper_refactor/t/TestAppForComparison/lib/TestAppForComparison/Controller/Root.pm       1969-12-31 17:00:00.000000000 -0700
   2 +++ /home/devin/web-devel/Catalyst-Devel/1.00/branches/helper_refactor/t/../TestAppForComparison/lib/TestAppForComparison/Controller/Root.pm    2009-06-15 15:59:41.000000000 -0600
   3 @@ -0,0 +1,61 @@
   4 +package TestAppForComparison::Controller::Root;
   5 +
   6 +use strict;
   7 +use warnings;
   8 +use parent 'Catalyst::Controller';
   9 +
  10 +#
  11 +# Sets the actions in this controller to be registered with no prefix
  12 +# so they function identically to actions created in MyApp.pm
  13 +#
  14 +__PACKAGE__->config->{namespace} = '';
  15 +
  16 +=head1 NAME
  17 +
  18 +TestAppForComparison::Controller::Root - Root Controller for TestAppForComparison
  19 +
  20 +=head1 DESCRIPTION
  21 +
  22 +[enter your description here]
  23 +
  24 +=head1 METHODS
  25 +
  26 +=cut
  27 +
  28 +=head2 index
  29 +
  30 +=cut
  31 +
  32 +sub index :Path :Args(0) {
  33 +    my ( $self, $c ) = @_;
  34 +
  35 +    # Hello World
  36 +    $c->response->body( $c->welcome_message );
  37 +}
  38 +
  39 +sub default :Path {
  40 +    my ( $self, $c ) = @_;
  41 +    $c->response->body( 'Page not found' );
  42 +    $c->response->status(404);
  43 +}
  44 +
  45 +=head2 end
  46 +
  47 +Attempt to render a view, if needed.
  48 +
  49 +=cut
  50 +
  51 +sub end : ActionClass('RenderView') {}
  52 +
  53 +=head1 AUTHOR
  54 +
  55 +Devin Austin,,,
  56 +
  57 +=head1 LICENSE
  58 +
  59 +This library is free software. You can redistribute it and/or modify
  60 +it under the same terms as Perl itself.
  61 +
  62 +=cut
  63 +
  64 +1;
  65 --- /home/devin/web-devel/Catalyst-Devel/1.00/branches/helper_refactor/t/TestAppForComparison/lib/TestAppForComparison.pm       1969-12-31 17:00:00.000000000 -0700
  66 +++ /home/devin/web-devel/Catalyst-Devel/1.00/branches/helper_refactor/t/../TestAppForComparison/lib/TestAppForComparison.pm    2009-06-15 15:59:41.000000000 -0600
  67 @@ -0,0 +1,64 @@
  68 +package TestAppForComparison;
  69 +
  70 +use strict;
  71 +use warnings;
  72 +
  73 +use Catalyst::Runtime 5.80;
  74 +
  75 +# Set flags and add plugins for the application
  76 +#
  77 +#         -Debug: activates the debug mode for very useful log messages
  78 +#   ConfigLoader: will load the configuration from a Config::General file in the
  79 +#                 application's home directory
  80 +# Static::Simple: will serve static files from the application's root
  81 +#                 directory
  82 +
  83 +use parent qw/Catalyst/;
  84 +use Catalyst qw/-Debug
  85 +                ConfigLoader
  86 +                Static::Simple/;
  87 +our $VERSION = '0.01';
  88 +
  89 +# Configure the application.
  90 +#
  91 +# Note that settings in testappforcomparison.conf (or other external
  92 +# configuration file that you set up manually) take precedence
  93 +# over this when using ConfigLoader. Thus configuration
  94 +# details given here can function as a default configuration,
  95 +# with an external configuration file acting as an override for
  96 +# local deployment.
  97 +
  98 +__PACKAGE__->config( name => 'TestAppForComparison' );
  99 +
 100 +# Start the application
 101 +__PACKAGE__->setup();
 102 +
 103 +
 104 +=head1 NAME
 105 +
 106 +TestAppForComparison - Catalyst based application
 107 +
 108 +=head1 SYNOPSIS
 109 +
 110 +    script/testappforcomparison_server.pl
 111 +
 112 +=head1 DESCRIPTION
 113 +
 114 +[enter your description here]
 115 +
 116 +=head1 SEE ALSO
 117 +
 118 +L<TestAppForComparison::Controller::Root>, L<Catalyst>
 119 +
 120 +=head1 AUTHOR
 121 +
 122 +Devin Austin,,,
 123 +
 124 +=head1 LICENSE
 125 +
 126 +This library is free software. You can redistribute it and/or modify
 127 +it under the same terms as Perl itself.
 128 +
 129 +=cut
 130 +
 131 +1;
 132 --- /home/devin/web-devel/Catalyst-Devel/1.00/branches/helper_refactor/t/TestAppForComparison/Makefile.PL       1969-12-31 17:00:00.000000000 -0700
 133 +++ /home/devin/web-devel/Catalyst-Devel/1.00/branches/helper_refactor/t/../TestAppForComparison/Makefile.PL    2009-06-15 15:59:41.000000000 -0600
 134 @@ -0,0 +1,20 @@
 135 +#!/usr/bin/env perl
 136 +# IMPORTANT: if you delete this file your app will not work as
 137 +# expected.  You have been warned.
 138 +use inc::Module::Install;
 139 +
 140 +name 'TestAppForComparison';
 141 +all_from 'lib/TestAppForComparison.pm';
 142 +
 143 +requires 'Catalyst::Runtime' => '5.80004';
 144 +requires 'Catalyst::Plugin::ConfigLoader';
 145 +requires 'Catalyst::Plugin::Static::Simple';
 146 +requires 'Catalyst::Action::RenderView';
 147 +requires 'parent';
 148 +requires 'Config::General'; # This should reflect the config file format you've chosen
 149 +                 # See Catalyst::Plugin::ConfigLoader for supported formats
 150 +catalyst;
 151 +
 152 +install_script glob('script/*.pl');
 153 +auto_install;
 154 +WriteAll;
 155 --- /home/devin/web-devel/Catalyst-Devel/1.00/branches/helper_refactor/t/TestAppForComparison/README    1969-12-31 17:00:00.000000000 -0700
 156 +++ /home/devin/web-devel/Catalyst-Devel/1.00/branches/helper_refactor/t/../TestAppForComparison/README 2009-06-15 15:59:41.000000000 -0600
 157 @@ -0,0 +1 @@
 158 +Run script/testappforcomparison_server.pl to test the application.
 159 --- /home/devin/web-devel/Catalyst-Devel/1.00/branches/helper_refactor/t/TestAppForComparison/script/testappforcomparison_cgi.pl        1969-12-31 17:00:00.000000000 -0700
 160 +++ /home/devin/web-devel/Catalyst-Devel/1.00/branches/helper_refactor/t/../TestAppForComparison/script/testappforcomparison_cgi.pl     2009-06-15 15:59:41.000000000 -0600
 161 @@ -0,0 +1,37 @@
 162 +#!/usr/bin/env perl
 163 +
 164 +BEGIN { $ENV{CATALYST_ENGINE} ||= 'CGI' }
 165 +
 166 +use strict;
 167 +use warnings;
 168 +use FindBin;
 169 +use lib "$FindBin::Bin/../lib";
 170 +use TestAppForComparison;
 171 +
 172 +TestAppForComparison->run;
 173 +
 174 +1;
 175 +
 176 +=head1 NAME
 177 +
 178 +testappforcomparison_cgi.pl - Catalyst CGI
 179 +
 180 +=head1 SYNOPSIS
 181 +
 182 +See L<Catalyst::Manual>
 183 +
 184 +=head1 DESCRIPTION
 185 +
 186 +Run a Catalyst application as a cgi script.
 187 +
 188 +=head1 AUTHORS
 189 +
 190 +Catalyst Contributors, see Catalyst.pm
 191 +
 192 +=head1 COPYRIGHT
 193 +
 194 +
 195 +This library is free software. You can redistribute it and/or modify
 196 +it under the same terms as Perl itself.
 197 +
 198 +=cut
 199 --- /home/devin/web-devel/Catalyst-Devel/1.00/branches/helper_refactor/t/TestAppForComparison/script/testappforcomparison_create.pl     1969-12-31 17:00:00.000000000 -0700
 200 +++ /home/devin/web-devel/Catalyst-Devel/1.00/branches/helper_refactor/t/../TestAppForComparison/script/testappforcomparison_create.pl  2009-06-15 15:59:41.000000000 -0600
 201 @@ -0,0 +1,85 @@
 202 +#!/usr/bin/env perl
 203 +
 204 +use strict;
 205 +use warnings;
 206 +use Getopt::Long;
 207 +use Pod::Usage;
 208 +eval "use Catalyst::Helper;";
 209 +
 210 +if ($@) {
 211 +  die <<END;
 212 +To use the Catalyst development tools including catalyst.pl and the
 213 +generated script/myapp_create.pl you need Catalyst::Helper, which is
 214 +part of the Catalyst-Devel distribution. Please install this via a
 215 +vendor package or by running one of -
 216 +
 217 +  perl -MCPAN -e 'install Catalyst::Devel'
 218 +  perl -MCPANPLUS -e 'install Catalyst::Devel'
 219 +END
 220 +}
 221 +
 222 +my $force = 0;
 223 +my $mech  = 0;
 224 +my $help  = 0;
 225 +
 226 +GetOptions(
 227 +    'nonew|force'    => \$force,
 228 +    'mech|mechanize' => \$mech,
 229 +    'help|?'         => \$help
 230 + );
 231 +
 232 +pod2usage(1) if ( $help || !$ARGV[0] );
 233 +
 234 +my $helper = Catalyst::Helper->new( { '.newfiles' => !$force, mech => $mech } );
 235 +
 236 +pod2usage(1) unless $helper->mk_component( 'TestAppForComparison', @ARGV );
 237 +
 238 +1;
 239 +
 240 +=head1 NAME
 241 +
 242 +testappforcomparison_create.pl - Create a new Catalyst Component
 243 +
 244 +=head1 SYNOPSIS
 245 +
 246 +testappforcomparison_create.pl [options] model|view|controller name [helper] [options]
 247 +
 248 + Options:
 249 +   -force        don't create a .new file where a file to be created exists
 250 +   -mechanize    use Test::WWW::Mechanize::Catalyst for tests if available
 251 +   -help         display this help and exits
 252 +
 253 + Examples:
 254 +   testappforcomparison_create.pl controller My::Controller
 255 +   testappforcomparison_create.pl -mechanize controller My::Controller
 256 +   testappforcomparison_create.pl view My::View
 257 +   testappforcomparison_create.pl view MyView TT
 258 +   testappforcomparison_create.pl view TT TT
 259 +   testappforcomparison_create.pl model My::Model
 260 +   testappforcomparison_create.pl model SomeDB DBIC::Schema MyApp::Schema create=dynamic\
 261 +   dbi:SQLite:/tmp/my.db
 262 +   testappforcomparison_create.pl model AnotherDB DBIC::Schema MyApp::Schema create=static\
 263 +   dbi:Pg:dbname=foo root 4321
 264 +
 265 + See also:
 266 +   perldoc Catalyst::Manual
 267 +   perldoc Catalyst::Manual::Intro
 268 +
 269 +=head1 DESCRIPTION
 270 +
 271 +Create a new Catalyst Component.
 272 +
 273 +Existing component files are not overwritten.  If any of the component files
 274 +to be created already exist the file will be written with a '.new' suffix.
 275 +This behavior can be suppressed with the C<-force> option.
 276 +
 277 +=head1 AUTHORS
 278 +
 279 +Catalyst Contributors, see Catalyst.pm
 280 +
 281 +=head1 COPYRIGHT
 282 +
 283 +This library is free software. You can redistribute it and/or modify
 284 +it under the same terms as Perl itself.
 285 +
 286 +=cut
 287 --- /home/devin/web-devel/Catalyst-Devel/1.00/branches/helper_refactor/t/TestAppForComparison/script/testappforcomparison_fastcgi.pl    1969-12-31 17:00:00.000000000 -0700
 288 +++ /home/devin/web-devel/Catalyst-Devel/1.00/branches/helper_refactor/t/../TestAppForComparison/script/testappforcomparison_fastcgi.pl 2009-06-15 15:59:41.000000000 -0600
 289 @@ -0,0 +1,79 @@
 290 +#!/usr/bin/env perl
 291 +
 292 +BEGIN { $ENV{CATALYST_ENGINE} ||= 'FastCGI' }
 293 +
 294 +use strict;
 295 +use warnings;
 296 +use Getopt::Long;
 297 +use Pod::Usage;
 298 +use FindBin;
 299 +use lib "$FindBin::Bin/../lib";
 300 +use TestAppForComparison;
 301 +
 302 +my $help = 0;
 303 +my ( $listen, $nproc, $pidfile, $manager, $detach, $keep_stderr );
 304 +
 305 +GetOptions(
 306 +    'help|?'      => \$help,
 307 +    'listen|l=s'  => \$listen,
 308 +    'nproc|n=i'   => \$nproc,
 309 +    'pidfile|p=s' => \$pidfile,
 310 +    'manager|M=s' => \$manager,
 311 +    'daemon|d'    => \$detach,
 312 +    'keeperr|e'   => \$keep_stderr,
 313 +);
 314 +
 315 +pod2usage(1) if $help;
 316 +
 317 +TestAppForComparison->run(
 318 +    $listen,
 319 +    {   nproc   => $nproc,
 320 +        pidfile => $pidfile,
 321 +        manager => $manager,
 322 +        detach  => $detach,
 323 +        keep_stderr => $keep_stderr,
 324 +    }
 325 +);
 326 +
 327 +1;
 328 +
 329 +=head1 NAME
 330 +
 331 +testappforcomparison_fastcgi.pl - Catalyst FastCGI
 332 +
 333 +=head1 SYNOPSIS
 334 +
 335 +testappforcomparison_fastcgi.pl [options]
 336 +
 337 + Options:
 338 +   -? -help      display this help and exits
 339 +   -l -listen    Socket path to listen on
 340 +                 (defaults to standard input)
 341 +                 can be HOST:PORT, :PORT or a
 342 +                 filesystem path
 343 +   -n -nproc     specify number of processes to keep
 344 +                 to serve requests (defaults to 1,
 345 +                 requires -listen)
 346 +   -p -pidfile   specify filename for pid file
 347 +                 (requires -listen)
 348 +   -d -daemon    daemonize (requires -listen)
 349 +   -M -manager   specify alternate process manager
 350 +                 (FCGI::ProcManager sub-class)
 351 +                 or empty string to disable
 352 +   -e -keeperr   send error messages to STDOUT, not
 353 +                 to the webserver
 354 +
 355 +=head1 DESCRIPTION
 356 +
 357 +Run a Catalyst application as fastcgi.
 358 +
 359 +=head1 AUTHORS
 360 +
 361 +Catalyst Contributors, see Catalyst.pm
 362 +
 363 +=head1 COPYRIGHT
 364 +
 365 +This library is free software. You can redistribute it and/or modify
 366 +it under the same terms as Perl itself.
 367 +
 368 +=cut
 369 --- /home/devin/web-devel/Catalyst-Devel/1.00/branches/helper_refactor/t/TestAppForComparison/script/testappforcomparison_server.pl     1969-12-31 17:00:00.000000000 -0700
 370 +++ /home/devin/web-devel/Catalyst-Devel/1.00/branches/helper_refactor/t/../TestAppForComparison/script/testappforcomparison_server.pl  2009-06-15 15:59:41.000000000 -0600
 371 @@ -0,0 +1,159 @@
 372 +#!/usr/bin/env perl
 373 +
 374 +BEGIN {
 375 +    $ENV{CATALYST_ENGINE} ||= 'HTTP';
 376 +    $ENV{CATALYST_SCRIPT_GEN} = 38;
 377 +    require Catalyst::Engine::HTTP;
 378 +}
 379 +
 380 +use strict;
 381 +use warnings;
 382 +use Getopt::Long;
 383 +use Pod::Usage;
 384 +use FindBin;
 385 +use lib "$FindBin::Bin/../lib";
 386 +
 387 +my $debug             = 0;
 388 +my $fork              = 0;
 389 +my $help              = 0;
 390 +my $host              = undef;
 391 +my $port              = $ENV{TESTAPPFORCOMPARISON_PORT} || $ENV{CATALYST_PORT} || 3000;
 392 +my $keepalive         = 0;
 393 +my $restart           = $ENV{TESTAPPFORCOMPARISON_RELOAD} || $ENV{CATALYST_RELOAD} || 0;
 394 +my $background        = 0;
 395 +my $pidfile           = undef;
 396 +
 397 +my $check_interval;
 398 +my $file_regex;
 399 +my $watch_directory;
 400 +my $follow_symlinks;
 401 +
 402 +my @argv = @ARGV;
 403 +
 404 +GetOptions(
 405 +    'debug|d'             => \$debug,
 406 +    'fork|f'              => \$fork,
 407 +    'help|?'              => \$help,
 408 +    'host=s'              => \$host,
 409 +    'port|p=s'            => \$port,
 410 +    'keepalive|k'         => \$keepalive,
 411 +    'restart|r'           => \$restart,
 412 +    'restartdelay|rd=s'   => \$check_interval,
 413 +    'restartregex|rr=s'   => \$file_regex,
 414 +    'restartdirectory=s@' => \$watch_directory,
 415 +    'followsymlinks'      => \$follow_symlinks,
 416 +    'background'          => \$background,
 417 +    'pidfile=s'           => \$pidfile,
 418 +);
 419 +
 420 +pod2usage(1) if $help;
 421 +
 422 +if ( $debug ) {
 423 +    $ENV{CATALYST_DEBUG} = 1;
 424 +}
 425 +
 426 +# If we load this here, then in the case of a restarter, it does not
 427 +# need to be reloaded for each restart.
 428 +require Catalyst;
 429 +
 430 +# If this isn't done, then the Catalyst::Devel tests for the restarter
 431 +# fail.
 432 +$| = 1 if $ENV{HARNESS_ACTIVE};
 433 +
 434 +my $runner = sub {
 435 +    # This is require instead of use so that the above environment
 436 +    # variables can be set at runtime.
 437 +    require TestAppForComparison;
 438 +
 439 +    TestAppForComparison->run(
 440 +        $port, $host,
 441 +        {
 442 +            argv       => \@argv,
 443 +            'fork'     => $fork,
 444 +            keepalive  => $keepalive,
 445 +            background => $background,
 446 +            pidfile    => $pidfile,
 447 +        }
 448 +    );
 449 +};
 450 +
 451 +if ( $restart ) {
 452 +    die "Cannot run in the background and also watch for changed files.\n"
 453 +        if $background;
 454 +
 455 +    require Catalyst::Restarter;
 456 +
 457 +    my $subclass = Catalyst::Restarter->pick_subclass;
 458 +
 459 +    my %args;
 460 +    $args{follow_symlinks} = 1
 461 +        if $follow_symlinks;
 462 +    $args{directories} = $watch_directory
 463 +        if defined $watch_directory;
 464 +    $args{sleep_interval} = $check_interval
 465 +        if defined $check_interval;
 466 +    $args{filter} = qr/$file_regex/
 467 +        if defined $file_regex;
 468 +
 469 +    my $restarter = $subclass->new(
 470 +        %args,
 471 +        start_sub => $runner,
 472 +    );
 473 +
 474 +    $restarter->run_and_watch;
 475 +}
 476 +else {
 477 +    $runner->();
 478 +}
 479 +
 480 +1;
 481 +
 482 +=head1 NAME
 483 +
 484 +testappforcomparison_server.pl - Catalyst Testserver
 485 +
 486 +=head1 SYNOPSIS
 487 +
 488 +testappforcomparison_server.pl [options]
 489 +
 490 + Options:
 491 +   -d -debug          force debug mode
 492 +   -f -fork           handle each request in a new process
 493 +                      (defaults to false)
 494 +   -? -help           display this help and exits
 495 +      -host           host (defaults to all)
 496 +   -p -port           port (defaults to 3000)
 497 +   -k -keepalive      enable keep-alive connections
 498 +   -r -restart        restart when files get modified
 499 +                      (defaults to false)
 500 +   -rd -restartdelay  delay between file checks
 501 +                      (ignored if you have Linux::Inotify2 installed)
 502 +   -rr -restartregex  regex match files that trigger
 503 +                      a restart when modified
 504 +                      (defaults to '\.yml$|\.yaml$|\.conf|\.pm$')
 505 +   -restartdirectory  the directory to search for
 506 +                      modified files, can be set mulitple times
 507 +                      (defaults to '[SCRIPT_DIR]/..')
 508 +   -follow_symlinks   follow symlinks in search directories
 509 +                      (defaults to false. this is a no-op on Win32)
 510 +   -background        run the process in the background
 511 +   -pidfile           specify filename for pid file
 512 +
 513 + See also:
 514 +   perldoc Catalyst::Manual
 515 +   perldoc Catalyst::Manual::Intro
 516 +
 517 +=head1 DESCRIPTION
 518 +
 519 +Run a Catalyst Testserver for this application.
 520 +
 521 +=head1 AUTHORS
 522 +
 523 +Catalyst Contributors, see Catalyst.pm
 524 +
 525 +=head1 COPYRIGHT
 526 +
 527 +This library is free software. You can redistribute it and/or modify
 528 +it under the same terms as Perl itself.
 529 +
 530 +=cut
 531 --- /home/devin/web-devel/Catalyst-Devel/1.00/branches/helper_refactor/t/TestAppForComparison/script/testappforcomparison_test.pl       1969-12-31 17:00:00.000000000 -0700
 532 +++ /home/devin/web-devel/Catalyst-Devel/1.00/branches/helper_refactor/t/../TestAppForComparison/script/testappforcomparison_test.pl    2009-06-15 15:59:41.000000000 -0600
 533 @@ -0,0 +1,53 @@
 534 +#!/usr/bin/env perl
 535 +
 536 +use strict;
 537 +use warnings;
 538 +use Getopt::Long;
 539 +use Pod::Usage;
 540 +use FindBin;
 541 +use lib "$FindBin::Bin/../lib";
 542 +use Catalyst::Test 'TestAppForComparison';
 543 +
 544 +my $help = 0;
 545 +
 546 +GetOptions( 'help|?' => \$help );
 547 +
 548 +pod2usage(1) if ( $help || !$ARGV[0] );
 549 +
 550 +print request($ARGV[0])->content . "\n";
 551 +
 552 +1;
 553 +
 554 +=head1 NAME
 555 +
 556 +testappforcomparison_test.pl - Catalyst Test
 557 +
 558 +=head1 SYNOPSIS
 559 +
 560 +testappforcomparison_test.pl [options] uri
 561 +
 562 + Options:
 563 +   -help    display this help and exits
 564 +
 565 + Examples:
 566 +   testappforcomparison_test.pl http://localhost/some_action
 567 +   testappforcomparison_test.pl /some_action
 568 +
 569 + See also:
 570 +   perldoc Catalyst::Manual
 571 +   perldoc Catalyst::Manual::Intro
 572 +
 573 +=head1 DESCRIPTION
 574 +
 575 +Run a Catalyst action from the command line.
 576 +
 577 +=head1 AUTHORS
 578 +
 579 +Catalyst Contributors, see Catalyst.pm
 580 +
 581 +=head1 COPYRIGHT
 582 +
 583 +This library is free software. You can redistribute it and/or modify
 584 +it under the same terms as Perl itself.
 585 +
 586 +=cut
 587 --- /home/devin/web-devel/Catalyst-Devel/1.00/branches/helper_refactor/t/TestAppForComparison/t/01app.t 1969-12-31 17:00:00.000000000 -0700
 588 +++ /home/devin/web-devel/Catalyst-Devel/1.00/branches/helper_refactor/t/../TestAppForComparison/t/01app.t      2009-06-15 15:59:41.000000000 -0600
 589 @@ -0,0 +1,8 @@
 590 +#!/usr/bin/env perl
 591 +use strict;
 592 +use warnings;
 593 +use Test::More tests => 2;
 594 +
 595 +BEGIN { use_ok 'Catalyst::Test', 'TestAppForComparison' }
 596 +my $req = request('/');
 597 +ok( $req->is_success, "Request succeeds");
 598 --- /home/devin/web-devel/Catalyst-Devel/1.00/branches/helper_refactor/t/TestAppForComparison/t/02pod.t 1969-12-31 17:00:00.000000000 -0700
 599 +++ /home/devin/web-devel/Catalyst-Devel/1.00/branches/helper_refactor/t/../TestAppForComparison/t/02pod.t      2009-06-15 15:59:41.000000000 -0600
 600 @@ -0,0 +1,10 @@
 601 +#!/usr/bin/env perl
 602 +use strict;
 603 +use warnings;
 604 +use Test::More;
 605 +
 606 +eval "use Test::Pod 1.14";
 607 +plan skip_all => 'Test::Pod 1.14 required' if $@;
 608 +plan skip_all => 'set TEST_POD to enable this test' unless $ENV{TEST_POD};
 609 +
 610 +all_pod_files_ok();
 611 --- /home/devin/web-devel/Catalyst-Devel/1.00/branches/helper_refactor/t/TestAppForComparison/t/03podcoverage.t 1969-12-31 17:00:00.000000000 -0700
 612 +++ /home/devin/web-devel/Catalyst-Devel/1.00/branches/helper_refactor/t/../TestAppForComparison/t/03podcoverage.t      2009-06-15 15:59:41.000000000 -0600
 613 @@ -0,0 +1,10 @@
 614 +#!/usr/bin/env perl
 615 +use strict;
 616 +use warnings;
 617 +use Test::More;
 618 +
 619 +eval "use Test::Pod::Coverage 1.04";
 620 +plan skip_all => 'Test::Pod::Coverage 1.04 required' if $@;
 621 +plan skip_all => 'set TEST_POD to enable this test' unless $ENV{TEST_POD};
 622 +
 623 +all_pod_coverage_ok();
 624 --- /home/devin/web-devel/Catalyst-Devel/1.00/branches/helper_refactor/t/TestAppForComparison/testappforcomparison.conf 1969-12-31 17:00:00.000000000 -0700
 625 +++ /home/devin/web-devel/Catalyst-Devel/1.00/branches/helper_refactor/t/../TestAppForComparison/testappforcomparison.conf      2009-06-15 15:59:41.000000000 -0600
 626 @@ -0,0 +1,3 @@
 627 +# rename this file to TestAppForComparison.yml and put a ':' in front of 'name' if
 628 +# you want to use YAML like in old versions of Catalyst
 629 +name TestAppForComparison