#!perl
use strict;
use warnings;
use Web::Machine;
{
package HelloWorld::Resource;
use strict;
use warnings;
use parent 'Web::Machine::Resource';
sub content_types_provided { [{ 'text/html' => 'to_html' }] }
sub to_html {
join "" =>
'',
'',
'Hello World Resource',
'',
'',
'Hello World
',
'',
''
}
}
Web::Machine->new( resource => 'HelloWorld::Resource' )->to_app;