X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fp5-File-KDBX;a=blobdiff_plain;f=lib%2FFile%2FKDBX%2FGroup.pm;h=e801a8d01b4f736eed14c53ae6ec5fc5a0dd7955;hp=f89d933db0d6d544c88f022fca5f3d47c53ed0af;hb=c98fc7d0294e641cf8844306808333bdec4fea2f;hpb=1d0a10e989a4d0487aa13cf4f56e533d3795469d

diff --git a/lib/File/KDBX/Group.pm b/lib/File/KDBX/Group.pm
index f89d933..e801a8d 100644
--- a/lib/File/KDBX/Group.pm
+++ b/lib/File/KDBX/Group.pm
@@ -161,8 +161,8 @@ sub find_groups {
     my $query = shift or throw 'Must provide a query';
     my %args = @_;
     my %all_groups = ( # FIXME
-        base            => $args{base},
-        include_base    => $args{include_base},
+        base        => $args{base},
+        inclusive   => $args{inclusive},
     );
     return @{search($self->all_groups(%all_groups), is_arrayref($query) ? @$query : $query)};
 }
@@ -332,6 +332,33 @@ sub _commit {
     $self->last_access_time($time);
 }
 
+sub effective_default_auto_type_sequence {
+    my $self = shift;
+    my $sequence = $self->default_auto_type_sequence;
+    return $sequence if defined $sequence;
+
+    my $parent = $self->parent or return '{USERNAME}{TAB}{PASSWORD}{ENTER}';
+    return $parent->effective_default_auto_type_sequence;
+}
+
+sub effective_enable_auto_type {
+    my $self = shift;
+    my $enabled = $self->enable_auto_type;
+    return $enabled if defined $enabled;
+
+    my $parent = $self->parent or return true;
+    return $parent->effective_enable_auto_type;
+}
+
+sub effective_enable_searching {
+    my $self = shift;
+    my $enabled = $self->enable_searching;
+    return $enabled if defined $enabled;
+
+    my $parent = $self->parent or return true;
+    return $parent->effective_enable_searching;
+}
+
 1;
 __END__