--- trunk/lib/Frey/View.pm 2008/06/30 20:02:12 40 +++ trunk/lib/Frey/View.pm 2008/06/30 20:02:14 41 @@ -27,8 +27,10 @@ sub method_link { my ( $pkg,$method ) = @_; + my $url = "/$pkg/$method"; + $url = $method if $method =~ m!^/!; a { - { href is "/$pkg/$method" } + { href is $url } outs $method } }