#!/usr/bin/perl

# Copyright (C) 2006 Eric L. Wilhelm

use warnings;
use strict;

=head1 NAME

book_do - like perl -e 'print book()->id, "\n"'

=cut

package bin::book_do;

use lib 'lib';
use dtRdr::Book;
use dtRdr::Plugins;
dtRdr::Plugins->init;
use dtRdr::Annotation::IO;

local $SIG{__WARN__};

my $book;
sub book () {
  return($book);
}

sub main {
  my (@args) = @_;
  my ($uri, $command) = @args;
  (-e $uri) or die "no file '$uri'";
  $command or die "must have a statement to execute";
  $book = dtRdr::Book->new_from_uri($uri);
  $book or die;
  eval($command);
  $@ and die $@;
}

package main;

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

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