NAME

Class::DBI::DATA::Schema - Execute Class::DBI SQL from DATA sections

SYNOPSIS

  package Film.pm;
  use base 'Class::DBI';
          # ... normal Class::DBI setup

  use 'Class::DBI::DATA::Schema';

  Film->run_data_sql;


        __DATA__
        CREATE TABLE IF NOT EXISTS film (....);
        REPLACE INTO film VALUES (...);
        REPLACE INTO film VALUES (...);

DESCRIPTION

This is an extension to Class::DBI which injects a method into your class to find and execute all SQL statements in the DATA section of the package.

METHODS

run_data_sql

  Film->run_data_sql;

Using this module will export a run_data_sql method into your class. This method will find SQL statements in the DATA section of the class it is called from, and execute them against the database that that class is set up to use.

It is safe to import this method into a Class::DBI subclass being used as the superclass for a range of classes.

WARNING: this does not do anything fancy to work out what is SQL. It merely assumes that everything in the DATA section is SQL, and applies each thing it finds (separated by semi-colons) in turn to your database. Similarly there is no security checking, or validation of the DATA in any way.

COPYRIGHT

Copyright (C) 2003-2004 Kasei. All rights reserved.

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

AUTHOR

Tony Bowden, <kasei@tmtm.com>.

SEE ALSO

Class::DBI.