sub _retrieve_station_list {

    my $self = shift;

    my $sql = "select id,codename,full_name from stations";

    $self->dbh->{PrintError} = 0;
    $self->dbh->{RaiseError} = 1;

    my $sth = $self->dbh->prepare($sql);
    $sth->execute();
    my $rs = $sth->fetchrow_hashref();
    $rs    = $sth->fetchall_arrayref( { id        => 1,
                                        full_name => 1,
                                        codename  => 1 } );
    return $rs;


}