File Coverage

blib/lib/CogBase/Database.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 13 14 92.8


line stmt bran cond sub pod time code
1             package CogBase::Database;
2 1     1   1280 use CogBase::Base -base;
  1         5  
  1         8  
3 1     1   1148 use IO::All;
  1         13719  
  1         13  
4              
5             sub create {
6 1     1 0 1930 my ($class, $db_path) = @_;
7 1         9 io("$db_path/nodes")->mkpath;
8 1         542352 io("$db_path/index/hid")->mkpath;
9 1         425 io("$db_path/index/type/Schema")->mkpath;
10             }
11              
12             =head1 NAME
13              
14             CogBase::Database - Database Management Class
15              
16             =cut
17              
18             1;