#!/usr/bin/perl

use warnings;
use strict;

use lib 'lib', '../lib';  # not needed when module is installed
use Geo::Format::Landsat::MTL;

use Data::Dumper;
$Data::Dumper::Indent    = 1;
$Data::Dumper::Quotekeys = 0;
$Data::Dumper::Sortkeys  = sub { +[ sort {lc($a) cmp lc($b)} keys %{$_[0]} ] };

@ARGV==1
    or die "Usage: $0 <filename>\n";

my ($fn) = @ARGV;

#### inspect file name only

print "FROM FILENAME:\n";

my $short = landsat_meta_from_filename $fn;
print Dumper $short;


#### inspect file content

print "FROM CONTENT:\n";

my ($type, $data) = landsat_mtl_from_file $fn;

print "TYPE=$type\n";
print Dumper $data;