shift;
my $json = "";
if ( $format eq 'json' ) {
$json = shift;
}
else {
$pandoc->require('1.12.1');
$json = $pandoc->convert( $format => 'json', @_ );
}
s::pandoc_json($json);
}
sub file {
my $pandoc = shift;
$pandoc->require('1.12.1');
my @args = ( @_, '-t' => 'json', '-o' => '-' );
$pandoc->run( \@args, out => \( my $json ), throw
=> 1 );
require Pandoc::Elements;
Pandoc::Elements::pandoc_json($json);
}
sub require {
my $pandoc = shift;
$pandoc = do { $PANDOC //= Pandoc->new } if $pandoc eq 'Pandoc';
unles
package Pandoc::Release;
use 5.014;
use warnings;
our $VERSION = '0.9.2';
use HTTP::Tiny;
use JSON::PP;
use Cwd;
use File::Path qw(make_path remove_tree);
use File::Copy 'move';
use File::Temp 'tem
\%headers } );
$res->{success} or die "failed to fetch $url";
$res->{content} = JSON::PP::decode_json( $res->{content} );
$res;
}
sub get {
shift if __PACKAGE__ eq ( $_[0] // '' );
=, 2 for >
return unless $cmp_truth_table{ $op || '>=' }->[$cmp];
}
1;
}
sub TO_JSON {
my ($self) = @_;
return [ map { 0 + $_ } @$self ];
}
1;
__END__
=head1 NAME
Pandoc:
AN::Meta::Spec/Version Ranges> for possible values.
=head2 TO_JSON
Return an array reference of the version number to serialize in JSON format.
=head1 SEE ALSO
L<version> is a similar module for P