#!/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';