scip/Data-Interactive-Inspect
1
0
Fork 0
mirror of https://codeberg.org/scip/Data-Interactive-Inspect.git synced 2025-12-17 04:31:00 +01:00
Code Issues Packages Projects Releases Wiki Activity

minor tweak

Browse Source
This commit is contained in:
TLINDEN
2015-02-09 18:38:01 +01:00
parent b3b3098338
commit 395ac4f678
2 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Changelog
View File

@@ -1,3 +1,6 @@
NEXT
signal value matches in search with quotes
0.04 0.04
fixed drop/append/pop/shift commands to work inside fixed drop/append/pop/shift commands to work inside
arrays as well. arrays as well.

13
Inspect.pm
View File

@@ -21,7 +21,7 @@ no strict 'refs';
use Data::Dumper; use Data::Dumper;
$Data::Interactive::Inspect::VERSION = 0.04; $Data::Interactive::Inspect::VERSION = 0.05;
use vars qw(@ISA); use vars qw(@ISA);
@@ -694,7 +694,7 @@ sub _search {
if (ref($db) =~ /hash/i) { if (ref($db) =~ /hash/i) {
foreach my $key (sort keys %{$db}) { foreach my $key (sort keys %{$db}) {
$self->_searchmatch($key, $regex); $self->_searchmatch($key, $regex, 0);
push @{$self->{spath}}, $key; push @{$self->{spath}}, $key;
$self->_search($db->{$key}, $regex); $self->_search($db->{$key}, $regex);
pop @{$self->{spath}}; pop @{$self->{spath}};
@@ -710,16 +710,17 @@ sub _search {
} }
} }
else { else {
$self->_searchmatch($db, $regex); $self->_searchmatch($db, $regex, 1);
} }
return 1; return 1;
} }
sub _searchmatch { sub _searchmatch {
my ($self, $key, $regex) = @_; my ($self, $key, $regex, $quote) = @_;
$quote = $quote ? '"' : '';
if ($key =~ /$regex/) { if ($key =~ /$regex/) {
print join(' => ', @{$self->{spath}}) . ": $key\n"; print join(' => ', @{$self->{spath}}) . ": ${quote}$ {key}${quote}\n";
} }
} }
@@ -1142,6 +1143,6 @@ and/or modify it under the same terms as Perl itself.
=head1 VERSION =head1 VERSION
This is the manual page for L<Data::Interactive::Inspect> Version 0.04. This is the manual page for L<Data::Interactive::Inspect> Version 0.05.
=cut =cut