An Introduction to Class::DBI - Bonus Material 42

Copying records

    my $award = Nomination->create({
        type            => "Art Direction",
        film_id         => 22,  # Star Wars
        year            => 1977,
        takes_the_oscar => 1,
    });
    $award->copy({type => "Costume Design" });
    $award->copy({type => "Original Score" });
    $award->copy({type => "Film Editing"   });
    $award->copy({type => "Sound"          });
    $award->copy({type => "Visual Effects" });
    $award->copy({type => "Sound Effects"  });

 

YAPC::Canada << Previous | Index | Next >>
Copyright © 2003 Michael Graham