Index: trunk/lib/DiscFlacFile.pm
===================================================================
--- trunk/lib/DiscFlacFile.pm	(revision 32)
+++ trunk/lib/DiscFlacFile.pm	(revision 32)
@@ -0,0 +1,42 @@
+package DiscFlacFile;
+
+use Moose;
+
+use Audio::FLAC::Header;
+use Tracks;
+
+has file => (
+    is  => 'ro',
+    isa => 'Str',
+);
+has flac => (
+    is       => 'ro',
+    isa      => 'Audio::FLAC::Header',
+    builder  => '_load_flac',
+    lazy     => 1,
+    init_arg => undef,
+);
+has tracks => (
+    is       => 'ro',
+    isa      => 'Tracks',
+    builder  => '_load_tracks',
+    lazy     => 1,
+    init_arg => undef,
+);
+
+sub _load_flac { Audio::FLAC::Header->new($_[0]->file) }
+
+sub _load_tracks {
+    my $self = shift;
+    my $tracks = Tracks->new;
+    $tracks->read_flac($self->flac);
+    return $tracks;
+}
+
+sub discid {
+    my $self = shift;
+    return $self->flac->info('MUSICBRAINZ_DISCID') || $self->tracks->discid;
+}
+
+# module return
+1;