From 3aec797b3ecd147621b7e9f5020596e74a587869 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Mon, 26 Nov 2018 20:10:52 +0100
Subject: perltidy

---
 lib/Travel/Status/DE/DBWagenreihung/Wagon.pm | 39 ++++++++++++++--------------
 1 file changed, 19 insertions(+), 20 deletions(-)

(limited to 'lib/Travel/Status/DE/DBWagenreihung/Wagon.pm')

diff --git a/lib/Travel/Status/DE/DBWagenreihung/Wagon.pm b/lib/Travel/Status/DE/DBWagenreihung/Wagon.pm
index ed1b87a..850bc84 100644
--- a/lib/Travel/Status/DE/DBWagenreihung/Wagon.pm
+++ b/lib/Travel/Status/DE/DBWagenreihung/Wagon.pm
@@ -11,47 +11,46 @@ use Carp qw(cluck);
 our $VERSION = '0.00';
 
 Travel::Status::DE::DBWagenreihung::Wagon->mk_ro_accessors(
-	qw(class_type has_bistro is_locomotive is_powercar number section)
-);
+	qw(class_type has_bistro is_locomotive is_powercar number section));
 
 sub new {
 	my ( $obj, %opt ) = @_;
 	my $ref = {};
 
-	$ref->{class_type} = 0;
-	$ref->{has_bistro} = 0;
+	$ref->{class_type}    = 0;
+	$ref->{has_bistro}    = 0;
 	$ref->{is_locomotive} = 0;
-	$ref->{is_powercar} = 0;
-	$ref->{number} = $opt{wagenordnungsnummer};
-	$ref->{section} = $opt{fahrzeugsektor};
-	$ref->{type} = $opt{fahrzeugtyp};
+	$ref->{is_powercar}   = 0;
+	$ref->{number}        = $opt{wagenordnungsnummer};
+	$ref->{section}       = $opt{fahrzeugsektor};
+	$ref->{type}          = $opt{fahrzeugtyp};
 
-	if ($opt{kategorie} =~ m{SPEISEWAGEN}) {
+	if ( $opt{kategorie} =~ m{SPEISEWAGEN} ) {
 		$ref->{has_bistro} = 1;
 	}
-	elsif ($opt{kategorie} eq 'LOK') {
+	elsif ( $opt{kategorie} eq 'LOK' ) {
 		$ref->{is_locomotive} = 1;
 	}
-	elsif ($opt{kategorie} eq 'TRIEBKOPF') {
+	elsif ( $opt{kategorie} eq 'TRIEBKOPF' ) {
 		$ref->{is_powercar} = 1;
 	}
 
-	if ($opt{fahrzeugtyp} =~ m{AB}) {
+	if ( $opt{fahrzeugtyp} =~ m{AB} ) {
 		$ref->{class_type} = 12;
 	}
-	elsif ($opt{fahrzeugtyp} =~ m{A}) {
+	elsif ( $opt{fahrzeugtyp} =~ m{A} ) {
 		$ref->{class_type} = 1;
 	}
-	elsif ($opt{fahrzeugtyp} =~ m{B|WR}) {
+	elsif ( $opt{fahrzeugtyp} =~ m{B|WR} ) {
 		$ref->{class_type} = 2;
 	}
 
 	my $pos = $opt{positionamhalt};
 
 	$ref->{position}{start_percent} = $pos->{startprozent};
-	$ref->{position}{end_percent} = $pos->{endeprozent};
-	$ref->{position}{start_meters} = $pos->{startmeter};
-	$ref->{position}{end_meters} = $pos->{endemeter};
+	$ref->{position}{end_percent}   = $pos->{endeprozent};
+	$ref->{position}{start_meters}  = $pos->{startmeter};
+	$ref->{position}{end_meters}    = $pos->{endemeter};
 
 	return bless( $ref, $obj );
 }
@@ -59,7 +58,7 @@ sub new {
 sub is_first_class {
 	my ($self) = @_;
 
-	if ($self->{type} =~ m{^A}) {
+	if ( $self->{type} =~ m{^A} ) {
 		return 1;
 	}
 	return 0;
@@ -68,7 +67,7 @@ sub is_first_class {
 sub is_second_class {
 	my ($self) = @_;
 
-	if ($self->{type} =~ m{^A?B}) {
+	if ( $self->{type} =~ m{^A?B} ) {
 		return 1;
 	}
 	return 0;
@@ -77,7 +76,7 @@ sub is_second_class {
 sub sections {
 	my ($self) = @_;
 
-	return @{$self->{sections}};
+	return @{ $self->{sections} };
 }
 
 sub TO_JSON {
-- 
cgit v1.2.3