#!/usr/bin/perl -s -Ilib
# PODNAME: dmoss-oracle
# ABSTRACT: command line tool for the DMOSS Oracle

use warnings;
use strict;

use DMOSS::Oracle;
use DMOSS::File;

our $g;

my $arg = shift;
unless ($arg) {
  print '$ dmoss-oracle <file>', "\n";
  exit(0);
}

my $ora = DMOSS::Oracle->new;

if ($g) {
  $arg =~ s/^/_/ unless ($arg =~ m/^_/);
  print join("\n", $ora->group($arg)), "\n";
  exit(0);
}

my $file = DMOSS::File->new('', $arg);
my $type = $ora->type($file);
print $type, "\n" if $type;

__END__

=encoding UTF-8

=head1 SYNOPSIS

    $ dmoss-corpus src/main.c

=head1 DESCRIPTION

Given a file, compute file type using L<DMOSS::Oracle>.