From: Ash Berlin Date: Wed, 10 Feb 2010 16:25:28 +0000 (+0000) Subject: Fix mixed CRLFs X-Git-Tag: 0.07~12 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FTest-WWW-Selenium-Catalyst.git;a=commitdiff_plain;h=4277287571641db540afa0aec1cb0f71611ea2bf Fix mixed CRLFs --- diff --git a/t/lib/TestApp.pm b/t/lib/TestApp.pm index bd5a456..659bd80 100755 --- a/t/lib/TestApp.pm +++ b/t/lib/TestApp.pm @@ -1,4 +1,4 @@ -package TestApp; -use Catalyst; -__PACKAGE__->setup; -1; +package TestApp; +use Catalyst; +__PACKAGE__->setup; +1; diff --git a/t/lib/TestApp/Controller/Root.pm b/t/lib/TestApp/Controller/Root.pm index 1e6ed15..9458c14 100755 --- a/t/lib/TestApp/Controller/Root.pm +++ b/t/lib/TestApp/Controller/Root.pm @@ -1,56 +1,56 @@ -#!/usr/bin/perl -# Root.pm -# Copyright (c) 2006 Jonathan Rockway - -package TestApp::Controller::Root; -use base qw(Catalyst::Controller); -__PACKAGE__->config->{namespace} = q{}; -my @words = qw(foo bar baz bat qux quux); - -sub index : Private { - my ($self, $c, @args) = @_; - my $words = $c->uri_for('/words'); - $c->response->body(<<"HERE"); - - -TestApp - - -

TestApp

-

This is the TestApp.

-

Click here to see some words.

- - -HERE -} - -sub words : Local { - my ($self, $c, $times) = @_; - $times ||= 0; - my $html = <<"HEADER"; - - -TestApp - - -

TestApp << Words

-

Here you'll find all things "words" printed $times time(s)!

- - - -FOOTER - $c->response->body($html); -} - -sub null : Path('/favicon.ico'){ - my ($self, $c) = @_; - $c->response->status(404); # doesn't exist -} - -1; # true. - +#!/usr/bin/perl +# Root.pm +# Copyright (c) 2006 Jonathan Rockway + +package TestApp::Controller::Root; +use base qw(Catalyst::Controller); +__PACKAGE__->config->{namespace} = q{}; +my @words = qw(foo bar baz bat qux quux); + +sub index : Private { + my ($self, $c, @args) = @_; + my $words = $c->uri_for('/words'); + $c->response->body(<<"HERE"); + + +TestApp + + +

TestApp

+

This is the TestApp.

+

Click here to see some words.

+ + +HERE +} + +sub words : Local { + my ($self, $c, $times) = @_; + $times ||= 0; + my $html = <<"HEADER"; + + +TestApp + + +

TestApp << Words

+

Here you'll find all things "words" printed $times time(s)!

+
    +HEADER + local $" = q{ }; # single space + $html .= "
  • $_: @words
    • \n" for 1..$times; + $html .= <<"FOOTER"; +
+ + +FOOTER + $c->response->body($html); +} + +sub null : Path('/favicon.ico'){ + my ($self, $c) = @_; + $c->response->status(404); # doesn't exist +} + +1; # true. +