ORM is an object relational mapper for Perl.
# Show number of songs performed by 'Gorillaz'
$M = Music::Song->M;
print Music::Song->count( filter=>( $M->artist->name eq 'Gorillaz' ) );
# Find all artists matching like expression 'G%'
$M = Music::Artist->M;
@artist = Music::Artist->find( filter=>$M->name->_like( 'G%' ) );
# Add new song to database
$error = ORM::Error->new;
$song = Music::Song->new
error => $error,
artist => $artist,
year => 2005,
title => "September's Gone",
content => "/home/user/music/Gorillaz/September's Gone.mp3",
print $song->title,"n" if( $song );
ORM is Perl library that implements object-relational mapping. Its features are much similar to those of Java's Hibernate library, but interface is much different and easier to use.