#!/usr/bin/perl

# Copyright (C) 2006 Eric L. Wilhelm

use warnings;
use strict;

=head1 NAME

syckify_toc - specialized storage

=cut

package bin::syckify_toc;

use lib 'lib';
use dtRdr::Book;
use dtRdr::Plugins;
dtRdr::Plugins->init;
local $SIG{__WARN__};

sub main {
  my (@args) = @_;

  my $uri = shift(@args);
  (-e $uri) or die "no file: $uri";

  my ($book) = dtRdr::Book->identify_by_uri($uri);
  $book or die;
  $book = $book->new();
  1 and $book->set_toc_cache_dirty(1);
  $book->load_uri($uri);

  print $book->toc->yaml_dump;

}

package main;

if($0 eq __FILE__) {
  bin::syckify_toc::main(@ARGV);
}

# vi:ts=2:sw=2:et:sta
my $package = 'bin::syckify_toc';