#!/usr/bin/env perl

use strict;
use warnings;

use File::ShareDir;

# --------------

my($app_name) = 'MarpaX-Grammar-GraphViz2';
my($bnf_name) = shift || 'json.1';
$bnf_name     .= '.bnf';
my($path)     = File::ShareDir::dist_file($app_name, $bnf_name);

print "Using: File::ShareDir::dist_file('$app_name', '$bnf_name'): \n";
print "Found: $path\n";
