Module::CPANTS::Site::Controller::Kwalitee - Catalyst Controller

package Module::CPANTS::Site::Controller::Kwalitee;

use strict;
use warnings;

use base qw( Catalyst::Controller );

sub shortcoming : Local {
    my ( $self, $c ) = @_;
    my $metric       = $c->req->param( 'name' );
    my $kwalitee     = $c->model( 'Kwalitee' );
    
    $c->stash->{ indicator } = $kwalitee->get_indicators_hash->{ $metric };
}

sub view : Path {
    my ( $self, $c, $distname ) = @_;
    
    my $dist = $c->model( 'DBIC::Dist' )->search( { dist => $distname } );

    $c->stash->{ dist } = $dist->first;
}

'listening to: kids during judo training';

__END__