Altreus/Resource.pm

## app.pl
#!/usr/bin/perl

use strict;
use warnings;

use Web::Machine;

use Plack::App::Path::Router;
use Path::Router;
use Data::Dumper;

my $router = Path::Router->new();

$router->add_route(
    ':id?',
    defaults => {
        id => undef
    },
    target => Web::Machine->new( resource => 'Hackmachine::Resource' )->to_app
);

Plack::App::Path::Router->new( router => $router )->to_app;

## Resource.pm
package Hackmachine::Resource;
use strict;
use warnings;

use Data::Dumper;

use parent 'Web::Machine::Resource';

our @data = qw( hello hi hey howdy );

sub content_types_provided { [{ 'text/html' => 'to_html' }] }

sub init {
    print "aaaa";
}
sub to_html {
    q{<html>
        <head>
            <title>Hello World Resource</title>
        </head>
        <body>
            <h1>Hello World</h1>
        </body>
     </html>}
}

1;
	#!/usr/bin/perl

	use strict;
	use warnings;

	use Web::Machine;

	use Plack::App::Path::Router;
	use Path::Router;
	use Data::Dumper;

	my $router = Path::Router->new();

	$router->add_route(
	':id?',
	defaults => {
	id => undef
	},
	target => Web::Machine->new( resource => 'Hackmachine::Resource' )->to_app
	);

	Plack::App::Path::Router->new( router => $router )->to_app;
	package Hackmachine::Resource;
	use strict;
	use warnings;

	use Data::Dumper;

	use parent 'Web::Machine::Resource';

	our @data = qw( hello hi hey howdy );

	sub content_types_provided { [{ 'text/html' => 'to_html' }] }

	sub init {
	print "aaaa";
	}
	sub to_html {
	q{<html>
	<head>
	<title>Hello World Resource</title>
	</head>
	<body>
	<h1>Hello World</h1>
	</body>
	</html>}
	}

	1;