Changeset 24 in flacrip for trunk/lib/Ripper.pm

Timestamp:

10/08/14 21:47:47 (10 years ago)

Author:

peter

Message:

• converted Tracks from Class::Std to Moose
• added a has_tracks() method to Tracks

File:

• trunk/lib/Ripper.pm (modified) (2 diffs)

trunk/lib/Ripper.pm

@@ -12 +12 @@
 has tracks => ( 
     is => 'rw',
-    handles => [qw{read_disc get_tracks get_cuesheet}],
+    handles => [qw{read_disc has_tracks get_cuesheet}],
 );
 
@@ -21 +21 @@
     $self->read_disc($self->device);
 
-    die "No tracks found; is there a CD in the drive?\n" unless @{ $self->get_tracks };
+    die "No tracks found; is there a CD in the drive?\n" unless $self->has_tracks;
 
     my $tempdir = tempdir(CLEANUP => 1);