Class::DBI::View::TemporaryTable - View implementation using temporary table

Class-DBI-View documentation Contained in the Class-DBI-View distribution.

Index

Code Index:

NAME

Top

Class::DBI::View::TemporaryTable - View implementation using temporary table

SYNOPSIS

Top

DO NOT USE THIS MODULE DIRECTLY

DESCRIPTION

Top

See Class::DBI::View

NOTES

Top

This module currently support only MySQL database.

AUTHOR

Top

Tatsuhiko Miyagawa <miyagawa@bulknews.net>

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

SEE ALSO

Top

Class::DBI::View

Class-DBI-View documentation Contained in the Class-DBI-View distribution. 
package Class::DBI::View::TemporaryTable;

use strict;
use vars qw($VERSION);
$VERSION = 0.05;

sub setup_view {
    my($class, $sql, %args) = @_;
    for my $method (qw(sql_Retrieve sql_RetrieveAll)) {
	_set_temporary_table($class, $method, $sql, %args);
    }

}

sub _set_temporary_table {
    my($pkg, $method, $sql, %args) = @_;
    no strict 'refs';
    *{"$pkg\::$method"} = sub {
	my $class = shift;
	my $temp_table = $class->table_alias;
	if ($args{cache_for_session}) {
	    $class->db_Main->do("CREATE TEMPORARY TABLE IF NOT EXISTS $temp_table $sql");
	}
	else {
	    $class->db_Main->do("DROP TABLE IF EXISTS $temp_table");
	    $class->db_Main->do("CREATE TEMPORARY TABLE $temp_table $sql");
	}
	$class->table($temp_table);
	return $class->${\"$class\::SUPER::$method"}(@_);
    };
}

1;
__END__