package eod_templates_V2; use strict; use warnings; use Data::Dumper; use Exporter; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); $VERSION = 1.13; @ISA = qw(Exporter); @EXPORT = (); @EXPORT_OK = qw(get_tmpl); %EXPORT_TAGS = ( ALL => [qw(&get_tmpl)], ); sub get_tmpl { my $request = $_[0]; my %templates = ( version => "same bla as before\n", config => 'same wall of text as before', ); return "$templates{$request}"; } 1;