use base 'ORM';
use ORM::Db::DBI::MySQL;
use Music::Song;
use Music::Artist;

$M = Music::Song->M;
print Music::Song->count( filter=>( $M->artist->name eq 'Radiohead' ) );

$M = Music::Artist->M;
@artist = Music::Artist->find( filter=>$M->name->_like( 'Ni%' ) );

$error = ORM::Error->new;
$song  = Music::Song->new(error => $error,
                          prop  => {artist    => $artist,
                                    year      => 2005,
                                    title     => "Paranoid Android",
                                    content   => "/tmp/music/Radiohead/Paranoid_Android.mp3"
                                    });
#print $error->text;
print $song->title,"\n" if ($song);