view release on metacpan or  search on metacpan

lib/App/KeePass2.pm  view on Meta::CPAN

    my ($self) = @_;
    $self->_fkp->load_db( $self->file, $self->_get_master_key );
    $self->_display_groups( $self->_fkp->groups, 0 );
}

sub _display_groups {
    my ( $self, $groups, $level ) = @_;
    for my $group (@$groups) {
        my $key  = $self->get_icon_key_from_id( $group->{icon} );
        my $icon = $self->get_icon_char_from_key($key);
        say sprintf( "%s%-3s%s", "    " x $level, $icon, $group->{title} );
        $self->_display_groups( $group->{groups}, $level + 1 );
    }
}
1;

__END__

=pod

=head1 NAME