summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/Travel/Status/DE/IRIS/Acronyms.pm17
-rwxr-xr-xscripts/acronyms.pl17
2 files changed, 32 insertions, 2 deletions
diff --git a/lib/Travel/Status/DE/IRIS/Acronyms.pm b/lib/Travel/Status/DE/IRIS/Acronyms.pm
index 5c6c10c..59bdad7 100644
--- a/lib/Travel/Status/DE/IRIS/Acronyms.pm
+++ b/lib/Travel/Status/DE/IRIS/Acronyms.pm
@@ -2,9 +2,11 @@ package Travel::Status::DE::IRIS::Acronyms;
use strict;
use warnings;
-use 5.010;
+use 5.018;
use utf8;
+use List::MoreUtils qw(firstval);
+
our $VERSION = '0.00';
my @acronyms = (
@@ -15098,5 +15100,18 @@ sub get_acronyms {
return @acronyms;
}
+sub get_acronym_by_name {
+ my ( $name ) = @_;
+
+ my $nname = lc($name);
+ my $actual_match = firstval { $nname eq lc($_->[1]) } @acronyms;
+
+ if ($actual_match) {
+ return ($actual_match);
+ }
+
+ return ( grep { $_->[1] =~ m{$name}i } @acronyms );
+}
+
1;
diff --git a/scripts/acronyms.pl b/scripts/acronyms.pl
index d78afad..b81184a 100755
--- a/scripts/acronyms.pl
+++ b/scripts/acronyms.pl
@@ -17,9 +17,11 @@ package Travel::Status::DE::IRIS::Acronyms;
use strict;
use warnings;
-use 5.010;
+use 5.018;
use utf8;
+use List::MoreUtils qw(firstval);
+
our $VERSION = '0.00';
my @acronyms = (
@@ -43,5 +45,18 @@ sub get_acronyms {
return @acronyms;
}
+sub get_acronym_by_name {
+ my ( $name ) = @_;
+
+ my $nname = lc($name);
+ my $actual_match = firstval { $nname eq lc($_->[1]) } @acronyms;
+
+ if ($actual_match) {
+ return ($actual_match);
+ }
+
+ return ( grep { $_->[1] =~ m{$name}i } @acronyms );
+}
+
1;
EOF