Merge branch 'colors'

This commit is contained in:
Difrex 2014-05-08 00:26:58 +04:00
commit 9dc5b93cff

12
pm.pl
View File

@ -80,9 +80,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) ) {