File Coverage

blib/lib/SPOPS/Import/DBI/Delete.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package SPOPS::Import::DBI::Delete;
2              
3             # $Id: Delete.pm,v 1.1 2004/06/01 14:46:09 lachoy Exp $
4              
5 1     1   981 use strict;
  1         2  
  1         52  
6 1     1   6 use base qw( SPOPS::Import::DBI::GenericOperation );
  1         2  
  1         722  
7             use SPOPS::SQLInterface;
8              
9             $SPOPS::Import::DBI::Delete::VERSION = sprintf("%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/);
10              
11             sub data { return [] }
12              
13             sub _run_operation {
14             my ( $self, $delete_args ) = @_;
15             my $rv = SPOPS::SQLInterface->db_delete( $delete_args );
16             return ( $rv eq '0E0' ) ? 0 : $rv;
17             }
18              
19             1;
20              
21             __END__