Commit 67480fdb authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

acronyms: Add get_acronym_by_name

parent 235f0b50

lib/Travel/Status/DE/IRIS/Acronyms.pm

+16 −1
Original line number Diff line number Diff line
@@ -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;

scripts/acronyms.pl

+16 −1
Original line number Diff line number Diff line
@@ -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