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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
package Travel::Routing::DE::DBRIS::Connection;
use strict;
use warnings;
use 5.020;
use parent 'Class::Accessor';
use DateTime::Duration;
use Travel::Routing::DE::DBRIS::Connection::Segment;
our $VERSION = '0.01';
Travel::Routing::DE::DBRIS::Connection->mk_ro_accessors(
qw(changes
duration sched_duration rt_duration
sched_dep rt_dep dep
sched_arr rt_arr arr
occupancy occupancy_first occupancy_second)
);
sub new {
my ( $obj, %opt ) = @_;
my $json = $opt{json};
my $strpdate = $opt{strpdate_obj};
my $strptime = $opt{strptime_obj};
my $ref = {
changes => $json->{umstiegsAnzahl},
id => $json->{tripId},
strptime_obj => $strptime,
};
if ( my $d = $json->{verbindungsDauerInSeconds} ) {
$ref->{sched_duration} = DateTime::Duration->new(
hours => int( $d / 3600 ),
minutes => int( ( $d % 3600 ) / 60 ),
seconds => $d % 60,
);
}
if ( my $d = $json->{ezVerbindungsDauerInSeconds} ) {
$ref->{rt_duration} = DateTime::Duration->new(
hours => int( $d / 3600 ),
minutes => int( ( $d % 3600 ) / 60 ),
seconds => $d % 60,
);
}
$ref->{duration} = $ref->{rt_duration} // $ref->{sched_duration};
for my $occupancy ( @{ $json->{auslastungsmeldungen} // [] } ) {
if ( $occupancy->{klasse} eq 'KLASSE_1' ) {
$ref->{occupancy_first} = $occupancy->{stufe};
}
if ( $occupancy->{klasse} eq 'KLASSE_2' ) {
$ref->{occupancy_second} = $occupancy->{stufe};
}
}
if ( $ref->{occupancy_first} and $ref->{occupancy_second} ) {
$ref->{occupancy}
= ( $ref->{occupancy_first} + $ref->{occupancy_second} ) / 2;
}
elsif ( $ref->{occupancy_first} ) {
$ref->{occupancy} = $ref->{occupancy_first};
}
elsif ( $ref->{occupancy_second} ) {
$ref->{occupancy} = $ref->{occupancy_second};
}
for my $segment ( @{ $json->{verbindungsAbschnitte} // [] } ) {
push(
@{ $ref->{segments} },
Travel::Routing::DE::DBRIS::Connection::Segment->new(
json => $segment,
strptime_obj => $strptime
)
);
}
for my $key (qw(sched_dep rt_dep dep)) {
$ref->{$key} = $ref->{segments}[0]{$key};
}
for my $key (qw(sched_arr rt_arr arr)) {
$ref->{$key} = $ref->{segments}[-1]{$key};
}
bless( $ref, $obj );
return $ref;
}
sub segments {
my ($self) = @_;
return @{ $self->{segments} // [] };
}
sub TO_JSON {
my ($self) = @_;
my $ret = { %{$self} };
return $ret;
}
1;
|
