Skip to content

Commit

Permalink
first commit: resources was generated by Ark's scaffold
Browse files Browse the repository at this point in the history
  • Loading branch information
gardejo committed Jul 26, 2009
0 parents commit beeb647
Show file tree
Hide file tree
Showing 5 changed files with 42 additions and 0 deletions.
12 changes: 12 additions & 0 deletions Makefile.PL
@@ -0,0 +1,12 @@
use inc::Module::Install;
name 'SimpleLinks-Web';
all_from 'lib/SimpleLinks/Web.pm';

requires 'Ark';

tests 't/*.t';

build_requires 'Test::More';
use_test_base;
auto_include;
WriteAll;
1 change: 1 addition & 0 deletions README
@@ -0,0 +1 @@
This is Perl application p5-ark-sample-simplelinks (SimpleLinks::Web).
6 changes: 6 additions & 0 deletions lib/SimpleLinks/Web.pm
@@ -0,0 +1,6 @@
package SimpleLinks::Web;
use Ark;

our $VERSION = '0.01';

1;
19 changes: 19 additions & 0 deletions lib/SimpleLinks/Web/Controller/Root.pm
@@ -0,0 +1,19 @@
package SimpleLinks::Web::Controller::Root;
use Ark 'Controller';

has '+namespace' => default => '';

# default 404 handler
sub default :Path :Args {
my ($self, $c) = @_;

$c->res->status(404);
$c->res->body('404 Not Found');
}

sub index :Path :Args(0) {
my ($self, $c) = @_;
$c->res->body('Ark Default Index');
}

1;
4 changes: 4 additions & 0 deletions t/00_compile.t
@@ -0,0 +1,4 @@
use strict;
use Test::More tests => 1;

BEGIN { use_ok 'SimpleLinks::Web' }

0 comments on commit beeb647

Please sign in to comment.