Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
unless! ( $schema );

exit;
  2. or download this
    #!/usr/bin/perl -w
use strict;
...
if ($schema);

exit;
  3. or download this
    CREATE DATABASE CPC;

...
  cd INTEGER NOT NULL REFERENCES cd(cdid),
  title TEXT NOT NULL
);
  4. or download this
    package Germinate::Schema;
use strict;
...
__PACKAGE__->add_unique_constraint( track_title => [ qw/ title / ], );

1;