File Coverage

lib/App/Tel/Color.pm

Criterion	Covered	Total	%
statement	21	22	95.4
branch	3	4	75.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	30	32	93.7

package App::Tel::Color;

use strict;
use warnings;
use Carp;
use Module::Load;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw();
our @EXPORT_OK = qw ( load_syntax );

=head1 NAME

App::Tel::Color - Methods for managing App::Tel::Color:: modules

=cut

=head2 load_syntax

   my $mod = $self->load_syntax('Cisco');

This attempts to load syntax highlighting modules.  In the above example,
Cisco would append Colors to the end and get CiscoColors.pm.  If it can't find
the module it just won't load it.

Returns an arrayref of module references.

Multiple files can be chain loaded by using plus:

    my $ret = $self->load_syntax('Default+Cisco');

=cut

sub load_syntax {
    my $ret = [];
    my ($list, $debug) = @_;
    for(split(/\+/, $list)) {

        eval {
            my $module = 'App::Tel::Color::'.$_;
            Module::Load::load $module;
            push(@$ret, $module->new);
        };
        if ($@) {
            carp $@ if ($debug);
        }
    }
    return $ret;
}

1;