#!perl

use strict;
use warnings;

use Swagger2;
use Swagger2::Markdown;

my $swagger_file = shift || die "Usage: $0 </path/to/swagger.json>";

my $swagger  = Swagger2->new->load( $swagger_file );
my $s2md     = Swagger2::Markdown->new( swagger2 => $swagger );

print $s2md->api_blueprint;
