From 67480fdbb5e465f3ac9f51278030ef35534b8ac7 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Thu, 2 Jan 2014 05:36:27 +0100
Subject: acronyms: Add get_acronym_by_name

---
 lib/Travel/Status/DE/IRIS/Acronyms.pm | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

(limited to 'lib/Travel/Status')

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;
 
-- 
cgit v1.2.3