#!/usr/bin/env perl

use Data::Dumper;

use Audio::Scan;
warn "Using Audio-Scan version $Audio::Scan::VERSION\n";

my $file;
$file = '/n/tmp/MP3_tags_NOK/LedZeppelinDarlene_NOK.mp3';
$file = '/n/tmp/MP3_tags_NOK/jan_delay-sam_ragga_styler.mp3';
$file = '/n/tmp/MP3_tags_NOK/jan_delay-sam_ragga_styler_short.mp3';

my $data = Audio::Scan->scan($file);

warn "data\n", Dumper $data;

# Just file info
my $info = Audio::Scan->scan_info($file);
warn "info\n", Dumper $info;

# Just tags
my $tags = Audio::Scan->scan_tags($file);
warn "tags\n", Dumper $tags;
    
# Scan without reading (possibly large) artwork into memory.
# Instead of binary artwork data, the size of the artwork will be returned instead.
{
    local $ENV{AUDIO_SCAN_NO_ARTWORK} = 1;
    my $data = Audio::Scan->scan($file);
    warn "data\n", Dumper $data;
}

exit 0;