-
Notifications
You must be signed in to change notification settings - Fork 0
/
Bills.pm
52 lines (41 loc) · 1.15 KB
/
Bills.pm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
package ParlAPI::Bills;
use Moose;
use namespace::clean -except => 'meta';
with 'ParlAPI::Controller';
sub pretty_list {
my $self = shift;
my $req = shift;
my $params = shift;
my $parl = $self->model->get_parliament(%$params);
return $self->render('unknown_parliament.html', $params) unless $parl;
my $bills = $self->model->bills($parl);
return $self->render('bills.html',
{
parliament => $parl,
bills => $bills,
},
);
}
sub show_bill {
my $self = shift;
my $req = shift;
my $params = shift;
my $parl = $self->model->get_parliament(%$params);
return $self->render('unknown_parliament.html', $params) unless $parl;
my $bill_name = $params->{billname};
unless ($bill_name) {
return $self->render('unknown_bill.html', {
bill_name => $bill_name,
parliament => $parl,
});
}
my $bill = $self->model->get_bill($parl, $bill_name);
return $self->render('bill.html',
{
parliament => $parl,
bill => $bill,
},
);
}
__PACKAGE__->meta->make_immutable;
1;