DBIx::Compare::SQLite - Compare SQLite database content

DBIx-Compare documentation Contained in the DBIx-Compare distribution.

Index

Code Index:

NAME

Top

DBIx::Compare::SQLite - Compare SQLite database content

SYNOPSIS

Top

	use DBIx::Compare::SQLite;

	my $oDB_Comparison = db_comparison->new($dbh1,$dbh2);
	$oDB_Comparison->compare;
	$oDB_Comparison->deep_compare;

DESCRIPTION

Top

DBIx::Compare::SQLite takes two SQLite database handles and performs comparisons of their table content. See DBIx::Compare for more information.

SEE ALSO

Top

DBIx::Compare

AUTHOR

Top

Christopher Jones, Gynaecological Cancer Research Laboratories, UCL EGA Institute for Women's Health, University College London.

c.jones@ucl.ac.uk

COPYRIGHT AND LICENSE

Top

Copyright 2008 by Christopher Jones, University College London

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

DBIx-Compare documentation Contained in the DBIx-Compare distribution. 
package DBIx::Compare::SQLite;

use 5.006;
use strict;
use warnings;
require DBIx::Compare;

our $VERSION = '1.1';

{ package sqlite_comparison;

	our @ISA = qw( db_comparison );

	sub compare_string_field {
		my ($self,$table,$field) = @_;
		my $statement = "
						SELECT AVG(LENGTH($field)), MIN(LENGTH($field)), MAX(LENGTH($field))
						FROM $table
				";
		return $self->do_compare_field($statement);
	}
	sub compare_numeric_field {
		my ($self,$table,$field) = @_;
		my $statement = "
						SELECT AVG($field), MIN($field), MAX($field)
						FROM $table
				";
		return $self->do_compare_field($statement);
	}
	sub compare_datetime_field {
		my $self = shift;
		$self->add_errors("Could not compare date/time field types");
		return 1;
	}
}

1;

__END__