The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Hello::Controller::Metalic;
use strict;
use warnings;
use parent qw(Catalyst::Controller::Metal);

sub call {
    my($self, $env) = @_;

    if ($env->{PATH_INFO} =~ m!^/metal!) {
        return [ 200, [ "Content-Type" => 'text/plain' ], [ "Hello Metal" ] ];
    } else {
        return [ 404, [], [] ];
    }
}

1;