app.pl

#!/usr/bin/perl

use strict;
use warnings;

use Web::HyperMachine;

my $app = Web::HyperMachine->new();

$app->with('Hackmachine::Resource');

$app->to_app;

Resource.pm

package Hackmachine::Resource;
use strict;
use warnings;


use parent 'Web::HyperMachine::Resource';

__PACKAGE__->uri('hack');
__PACKAGE__->related('Hackmachine::OtherResource');

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

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

sub fetch {
    my ($self, $id) = @_;
    return $data[$id];
}

sub to_html {
    my $self = shift;
    my $resource = $self->{resource};

    q{<h1>} . $resource . q{ world</h1>}
}

1;