#!/usr/bin/perl 

use strict;
use warnings;

use XML::Twig;
use XML::Simple;
use JSON::XS;
use YAML::Syck;
use Data::Dumper;
use Storable;
use Fatal qw(open read close);

my $xml;
while(<DATA>){
    $xml .= $_;
}

my $twig = XML::Twig->new();
my $href = XMLin($xml);
my $dumper = Dumper($href);
my $storable = Storable::freeze($href);
my $json = encode_json($href);
my $yaml = Dump($href);

use Benchmark qw( cmpthese );

cmpthese -5, {
    'XML::Simple' => sub { XMLin($xml) },
    'XML::Twig' => sub { $twig->parse($xml) },
    'JSON::XS' => sub { decode_json($json) },
    'YAML::Syck' => sub { Load($yaml) },
    'Storable' => sub { Storable::thaw($storable) },
    'Data::Dumper' => sub { eval($dumper) },
};

__DATA__
<recipe name="bread" prep_time="5 mins" cook_time="3 hours">
  <title>Basic bread</title>
  <ingredient amount="8" unit="dL">Flour</ingredient>
  <ingredient amount="10" unit="grams">Yeast</ingredient>
  <ingredient amount="4" unit="dL" state="warm">Water</ingredient>
  <ingredient amount="1" unit="teaspoon">Salt</ingredient>
  <instructions>
    <step>Mix all ingredients together.</step>
    <step>Knead thoroughly.</step>
    <step>Cover with a cloth, and leave for one hour in warm room.</step>
    <step>Knead again.</step>
    <step>Place in a bread baking tin.</step>
    <step>Cover with a cloth, and leave for one hour in warm room.</step>
    <step>Bake in the oven at 180(degrees)C for 30 minutes.</step>
  </instructions>
</recipe>