The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package t::oEmbed;
use Test::Base -Base;

use JSON::XS;

our @EXPORT = qw( read_json );

sub read_json() {
    open my $fh, shift or die $!;
    my $json = join '', <$fh>;
    decode_json($json);
}


1;