File Coverage

blib/lib/TreePath/Backend/File.pm

Criterion	Covered	Total	%
statement	15	21	71.4
branch	2	4	50.0
condition			n/a
subroutine	4	7	57.1
pod			n/a
total	21	32	65.6

package TreePath::Backend::File;
$TreePath::Backend::File::VERSION = '0.14';

use Moose::Role;
use Config::JFDI;
use Carp qw/croak/;

sub _load {
  my $self = shift;

  my $config  = $self->conf;
  my $file    = $config->{$self->configword}->{backend}->{args}->{file}
    or die "'file' is not defined in conf file !";

  $self->_log("Loading tree from file $file");

  my ($jfdi_h, $jfdi) = Config::JFDI->open($file)
    or croak "Error (conf: $file) : $!\n";
  return $jfdi->get;
}

sub _create {
    my $self = shift;
    my $node = shift;

}

sub _update {
    my $self = shift;
    my $node = shift;

}

sub _delete {
    my $self  = shift;
    my $nodes = shift;

}

=head1 NAME

TreePath::Backend::File - Backend 'File' for TreePath

=head1 VERSION

version 0.14

=head1 CONFIGURATION

See t/conf/treefromfile.yml

         TreePath:
           debug: 0
           backend:
             name: File


=head1 AUTHOR

Daniel Brosseau, C<< <dab at catapulse.org> >>

=head1 LICENSE AND COPYRIGHT

Copyright 2014 Daniel Brosseau.

This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.


=cut

1;