package Local::Evaluator;

use warnings;
use strict;

use parent 'Exporter';
our @EXPORT_OK = qw( evaluate );

{
    my %HASH;
    $HASH{safe}{bin}   = '/usr/bin';
    $HASH{unsafe}{bin} = '/bin';

    sub evaluate {
        my $word = shift;
        return $word unless 0 == index $word, '#';
        my ($key, $subkey, $rest) = (split /#/, $word, 4)[1 .. 3];
        return $HASH{$key}{$subkey} . $rest if $HASH{$key}
                                            and exists $HASH{$key}{$subkey};
        return $word;
    }
}

__PACKAGE__