Add_shortcut goes wrong ...?

gistfile1.pl

#/usr/bin/env perl
package Test;
use Mojo::Base 'Mojolicious';

sub startup {
    my $m = shift;

    my $r = $m->routes;

    $r->add_shortcut(
	'do_via' => sub {
	    $_[0]->via('get')->to('hm#get');
	    $_[0]->via('post')->to('hm#post');
	});

    $r->route('/')->do_via;
};

package main;

Test->start('routes');

/usr/bin/env perl

package Test;
use Mojo::Base 'Mojolicious';

sub startup {
my $m = shift;

my $r = $m->routes;

$r->add_shortcut(
'do_via' => sub {
    my ($r, $p) = @_;
    $r->route($p)->via('get')->to('hm#get');
    $r->route($p)->via('post')->to('hm#post');
});

$r->do_via('/');

};

package main;

Test->start('routes');