perllib/FixMyStreet/SendReport.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

package FixMyStreet::SendReport;

use Moose;

has 'councils' => (is => 'rw', isa => 'HashRef', default => sub { {} } );
has 'to' => (is => 'rw', isa => 'ArrayRef', default => sub { [] } );

sub reset {
    my $self = shift;

    $self->councils( {} );
    $self->to( [] );
}

sub add_council {
    my $self = shift;
    my $council = shift;
    my $name = shift;

    $self->councils->{ $council } = $name;
}


1;