extract path from full_path if missing

[MojoFacets.git] / lib / MojoFacets / Import / SQL.pm

diff --git a/lib/MojoFacets/Import/SQL.pm b/lib/MojoFacets/Import/SQL.pm
index 540328a..ff40bf3 100644 (file)
--- a/lib/MojoFacets/Import/SQL.pm
+++ b/lib/MojoFacets/Import/SQL.pm
@@ -12,6 +12,8 @@ use Encode;
 
 __PACKAGE__->attr('full_path');
 
+sub ext { '.sql' }
+
 sub data {
        my $self = shift;
 
@@ -20,8 +22,8 @@ sub data {
        my $sql = read_file $path, { binmode => ':raw' }; # FIXME configurable!
 
        my $dsn    = $1 if $sql =~ s/--\s*(dbi:\S+)//;
-       my $user   = $1 if $sql =~ s/--\s*user:\s*(\S+)//;
-       my $passwd = $1 if $sql =~ s/--\s*passwd:\s*(\S+)//;
+       my $user   = $1 if $sql =~ s/--\s*user=\s*(\S+)//;
+       my $passwd = $1 if $sql =~ s/--\s*passwo?r?d=\s*(\S+)//;
 
        warn "# $dsn $user/", '*' x length($passwd);
 
@@ -45,7 +47,7 @@ sub data {
        warn "# got ", $sth->rows, " rows\n";
 
        my $data = { items => [] };
-       $data->{header} = [ $sth->{NAME} ];
+       $data->{header} = $sth->{NAME};
 
        while( my $row = $sth->fetchrow_hashref ) {
                push @{ $data->{items} }, $row;