colors support

This commit is contained in:
Difrex 2014-05-08 00:21:22 +04:00
parent 16b5c2d680
commit 76a5f746ac

12
pm.pl
View File

@ -77,9 +77,15 @@ if ( defined($opt_s) and defined($opt_n) and !defined($opt_o) ) {
my $get_pass = $get_h->{password}; my $get_pass = $get_h->{password};
$copy->copy($get_pass); $copy->copy($get_pass);
# TEST
print "Password copied to xclipboard.\nURI is " use Term::ANSIColor;
. $get_h->{resource} . "\n"; print color 'green';
print "Password copied to xclipboard.";
print color 'reset';
print "\nURI is ";
print color 'bold blue';
print $get_h->{resource} . "\n";
print color 'reset';
} }
elsif ( defined($opt_s) and defined($opt_n) and defined($opt_o) ) { elsif ( defined($opt_s) and defined($opt_n) and defined($opt_o) ) {