File Coverage

File:bin/xml
Coverage:97.8%

linestmtbrancondsubtimecode
1#!/usr/bin/env perl
2
3
1
1
1
1
1782
1
23
use warnings;
4
1
1
1
1
2
1
44
use strict;
5
1
1
1
1
191
7978
1
use autodie qw(:all);
6
7
1
1
1
1
9464
466
54
use FindBin qw($Bin);
8
1
1
1
1
190
264
2
use lib "$Bin/../lib";
9
1
1
1
1
794
7697
102
use DBI;
10
11# print $DBD::Version, "\n";
12
13
1
62261
eval {
14
1
1
        doit();
15};
16
1
50
84
die $@ if $@;
17
18sub doit
19{
20
1
1
7
        print "Test 1 - import from file\n";
21
1
4
        my $dbh = DBI->connect('dbi:XMLSimple(RaiseError => 1):');
22
23        # print "xmlsimple_import file\n";
24
1
155
        $dbh->func('person', 'XML', "$Bin/../data/person.xml", 'xmlsimple_import');
25
26        # print "prepare\n";
27        # my $sth = $dbh->prepare( "SELECT * FROM person WHERE name = 'Nigel Horne'");
28        # my $sth = $dbh->prepare( "SELECT * FROM person WHERE email = 'njh\@bandsman.co.uk'");
29
1
5
        my $sth = $dbh->prepare("SELECT * FROM person");
30        # my $sth = $dbh->prepare( "SELECT name FROM person WHERE email = 'njh\@bandsman.co.uk'");
31        # print "execute\n";
32
1
2228
        $sth->execute();
33
1
77
        $sth->dump_results();
34
35
1
77
        print "Test 2 - import from string\n";
36
1
3
        $dbh = DBI->connect('dbi:XMLSimple(RaiseError => 1):');
37        # print "xmlsimple_import string\n";
38
1
149
        $dbh->func('person2', 'XML', [<DATA>], 'xmlsimple_import');
39
40        # $sth = $dbh->prepare("SELECT * FROM person2");
41
1
3
        $sth = $dbh->prepare("Select email FROM person2 WHERE name = 'Nigel Horne'");
42        # print "execute\n";
43
1
2399
        $sth->execute();
44
1
69
        $sth->dump_results();
45
46
1
47
        $sth = $dbh->prepare("Select name FROM person2");
47
1
412
        $sth->execute();
48
1
47
        $sth->dump_results();
49}
50