Changeset 29 in flacrip for trunk/lib/Ripper.pm
- Timestamp:
- 11/05/14 01:06:55 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/lib/Ripper.pm
r28 r29 9 9 use File::Copy; 10 10 11 has device => ( is => 'rw' ); 11 has device => ( 12 is => 'rw', 13 isa => 'Str', 14 ); 12 15 has tracks => ( 13 is => 'rw', 14 handles => [qw{read_disc has_tracks get_cuesheet}], 16 is => 'rw', 17 isa => 'Tracks', 18 handles => [qw{read_disc has_tracks}], 15 19 ); 16 20 … … 36 40 # encode + cuesheet 37 41 open my $CUE, "> $cue_file"; 38 print $CUE $self-> get_cuesheet;42 print $CUE $self->tracks->get_cuesheet; 39 43 close $CUE; 40 44 system 'flac', '-o', $flac_file, '--cuesheet', $cue_file, $wav_file;
Note: See TracChangeset
for help on using the changeset viewer.