Commit bfd099f9 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

perlcritic

parent c29f487e

bin/db-iris

+3 −3
Original line number Diff line number Diff line
@@ -56,7 +56,7 @@ my ($station) = @ARGV; 
$station = get_station($station);



if ($date) {

	my ( $day, $month, $year ) = split( /\./, $date );

	my ( $day, $month, $year ) = split( qr{ [.] }ox, $date );

	$datetime->set(

		day   => $day,

		month => $month,
@@ -64,7 +64,7 @@ if ($date) { 
	);

}

if ($time) {

	my ( $hour, $minute, $second ) = split( /:/, $time );

	my ( $hour, $minute, $second ) = split( qr{ : }ox, $time );

	$datetime->set(

		hour   => $hour,

		minute => $minute,
@@ -156,7 +156,7 @@ sub display_result { 
		}

		if ( $edata{qos} and $d->qos_messages ) {

			printf( '  %s',

				join( '  ', map { $_->[1] } ( reverse $d->qos_messages ) ) );

				join( q{  }, map { $_->[1] } ( reverse $d->qos_messages ) ) );

		}

		print "\n";

lib/Travel/Status/DE/IRIS.pm

+3 −3
Original line number Diff line number Diff line
@@ -4,7 +4,7 @@ use strict; 
use warnings;

use 5.014;



no if $] >= 5.018, warnings => "experimental::smartmatch";

no if $] >= 5.018, warnings => 'experimental::smartmatch';



our $VERSION = '0.00';
@@ -192,11 +192,11 @@ sub get_realtime { 
		for my $e_m (@e_ms) {

			my $type  = $e_m->getAttribute('t');

			my $value = $e_m->getAttribute('c');

			my $id    = $e_m->getAttribute('id');

			my $msgid = $e_m->getAttribute('id');

			my $ts    = $e_m->getAttribute('ts');



			if ($value) {

				$messages{$id} = [ $ts, $type, $value ];

				$messages{$msgid} = [ $ts, $type, $value ];

			}

		}