rename Travel::Status::DE::IRIS::{Acronyms -> Stations}

3 files changed, 17 insertions, 17 deletions

diff --git a/lib/Travel/Status/DE/IRIS/Acronyms.pm b/lib/Travel/Status/DE/IRIS/Stations.pm
index 59bdad7..c75984e 100644
--- a/lib/Travel/Status/DE/IRIS/Acronyms.pm
+++ b/lib/Travel/Status/DE/IRIS/Stations.pm
@@ -1,4 +1,4 @@
-package Travel::Status::DE::IRIS::Acronyms;
+package Travel::Status::DE::IRIS::Stations;
 
 use strict;
 use warnings;
@@ -9,7 +9,7 @@ use List::MoreUtils qw(firstval);
 
 our $VERSION = '0.00';
 
-my @acronyms = (
+my @stations = (
 
 	['XNTH','`t Harde'],
 	['YMMBM','6,1/60,3 Bad MGH'],
@@ -15096,21 +15096,21 @@ my @acronyms = (
 	['XPZR','Zyrardow'],
 );
 
-sub get_acronyms {
-	return @acronyms;
+sub get_stations {
+	return @stations;
 }
 
-sub get_acronym_by_name {
+sub get_station_by_name {
 	my ( $name ) = @_;
 
 	my $nname = lc($name);
-	my $actual_match = firstval { $nname eq lc($_->[1]) } @acronyms;
+	my $actual_match = firstval { $nname eq lc($_->[1]) } @stations;
 
 	if ($actual_match) {
 		return ($actual_match);
 	}
 
-	return ( grep { $_->[1] =~ m{$name}i } @acronyms );
+	return ( grep { $_->[1] =~ m{$name}i } @stations );
 }
 
 1;
diff --git a/scripts/acronyms.pl b/scripts/acronyms.pl
index b81184a..9d55b3f 100755
--- a/scripts/acronyms.pl
+++ b/scripts/acronyms.pl
@@ -13,7 +13,7 @@ my $re_line = qr{
 }x;
 
 say <<'EOF';
-package Travel::Status::DE::IRIS::Acronyms;
+package Travel::Status::DE::IRIS::Stations;
 
 use strict;
 use warnings;
@@ -24,38 +24,38 @@ use List::MoreUtils qw(firstval);
 
 our $VERSION = '0.00';
 
-my @acronyms = (
+my @stations = (
 EOF
 
 while (my $line = <STDIN>) {
 	chomp $line;
 
 	if ($line =~ $re_line) {
-		my ($acronym, $name) = @+{qw{acronym name}};
+		my ($station, $name) = @+{qw{acronym name}};
 		$name =~ s{'}{\\'}g;
 
-		printf("\t['%s','%s'],\n", $acronym, $name);
+		printf("\t['%s','%s'],\n", $station, $name);
 	}
 }
 
 say <<'EOF';
 );
 
-sub get_acronyms {
-	return @acronyms;
+sub get_stations {
+	return @stations;
 }
 
-sub get_acronym_by_name {
+sub get_station_by_name {
 	my ( $name ) = @_;
 
 	my $nname = lc($name);
-	my $actual_match = firstval { $nname eq lc($_->[1]) } @acronyms;
+	my $actual_match = firstval { $nname eq lc($_->[1]) } @stations;
 
 	if ($actual_match) {
 		return ($actual_match);
 	}
 
-	return ( grep { $_->[1] =~ m{$name}i } @acronyms );
+	return ( grep { $_->[1] =~ m{$name}i } @stations );
 }
 
 1;
diff --git a/scripts/acronyms.sh b/scripts/acronyms.sh
index a6bd3ca..ef52521 100755
--- a/scripts/acronyms.sh
+++ b/scripts/acronyms.sh
@@ -2,4 +2,4 @@
 
 curl -s http://www.db-netz.de/file/2361656/data/betriebsstellen.pdf \
 | pdftotext -raw - - | perl scripts/acronyms.pl \
-> lib/Travel/Status/DE/IRIS/Acronyms.pm
+> lib/Travel/Status/DE/IRIS/Stations.pm