Select Code to Download

package MyDatabase;
use base qw/DBIx::Class::Schema/;
__PACKAGE__->load_namespaces;
1;

package MyDatabase::Result::Artist;
use strict;
...
__PACKAGE__->add_unique_constraint(['name']);
__PACKAGE__->has_many( 'cds' => 'MyDatabase::Result::Cd' );
1;

package MyDatabase::Result::Cd;
use strict;
...
__PACKAGE__->set_primary_key('cdid');
__PACKAGE__->belongs_to( 'artist' => 'MyDatabase::Result::Artist' );
1;

use strict;
use warnings;
...
            (warning: too few iterations for a reliable count)
     test3:  5 wallclock secs ( 5.43 usr +  0.01 sys =  5.44 CPU) @  0
+.18/s (n=1)
            (warning: too few iterations for a reliable count)