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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
package Travel::Status::DE::DBRIS::Location;
use strict;
use warnings;
use 5.020;
use parent 'Class::Accessor';
our $VERSION = '0.01';
Travel::Status::DE::DBRIS::Location->mk_ro_accessors(
qw(eva id lat lon name products type is_cancelled is_additional is_separation display_priority
dep arr platform
)
);
sub new {
my ( $obj, %opt ) = @_;
my $json = $opt{json};
my $ref = {
eva => $json->{extId} // $json->{evaNumber},
id => $json->{id},
lat => $json->{lat},
lon => $json->{lon},
name => $json->{name},
products => $json->{products},
type => $json->{type},
is_cancelled => $json->{canceled},
is_additional => $json->{additional},
platform => $json->{gleis},
rt_platform => $json->{ezGleis},
};
if ( $json->{abfahrtsZeitpunkt} ) {
$ref->{sched_dep}
= $opt{strptime_obj}->parse_datetime( $json->{abfahrtsZeitpunkt} );
}
if ( $json->{ezAbfahrtsZeitpunkt} ) {
$ref->{rt_dep}
= $opt{strptime_obj}->parse_datetime( $json->{ezAbfahrtsZeitpunkt} );
}
if ( $json->{ankunftsZeitpunkt} ) {
$ref->{sched_arr}
= $opt{strptime_obj}->parse_datetime( $json->{ankunftsZeitpunkt} );
}
if ( $json->{ezAnkunftsZeitpunkt} ) {
$ref->{rt_arr}
= $opt{strptime_obj}->parse_datetime( $json->{ezAnkunftsZeitpunkt} );
}
$ref->{arr} = $ref->{rt_arr} // $ref->{sched_arr};
$ref->{dep} = $ref->{rt_dep} // $ref->{sched_dep};
bless( $ref, $obj );
return $ref;
}
sub TO_JSON {
my ($self) = @_;
my $ret = { %{$self} };
return $ret;
}
1;
|
