File Coverage

lib/Devel/Trepan/CmdProcessor/Alias.pm

Criterion	Covered	Total	%
statement	3	12	25.0
branch			n/a
condition			n/a
subroutine	1	3	33.3
pod	0	2	0.0
total	4	17	23.5

# Copyright (C) 2012 Rocky Bernstein <[e-mail]>
# Part of Trepan::CmdProcess that deails with alias routines
use rlib '../../..';

package Devel::Trepan::CmdProcessor;

sub add_alias($$$) {
    my ($self, $command_name, $alias, $cmd_str) = @_;

    # Update array inside command name
    my $cmd_alias_ref = $self->{commands}{$command_name}{aliases};
    push @$cmd_alias_ref, $alias;

    # Upate aliases hash
    $self->{aliases}{$alias} = $cmd_str;
}

sub remove_alias($$$) {
    my ($self, $command_name, $alias) = @_;

    # Update array inside command name
    my $cmd_alias_ref = $self->{commands}{$command_name}{aliases};
    my @new_aliases = grep(($alias ne $_), @$cmd_alias_ref);
    $self->{commands}{$command_name}{aliases} = \@new_aliases;

    # Upate aliases hash
    delete $self->{aliases}{$alias};
}

1;