Add page_progression_direction property and make proper xml attribute.

gonzoua · Feb 24, 2013 · 61ecc56 · 61ecc56
1 parent 356ebae
commit 61ecc56
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/lib/EBook/EPUB/Spine.pm b/lib/EBook/EPUB/Spine.pm
@@ -26,6 +26,12 @@ use Moose;
 use EBook::EPUB::Spine::Itemref;
 
 has toc => ( isa => 'Str', is => 'rw' );
+
+has page_progression_direction => (
+    isa => "Str",
+    is  => "rw"
+);
+
 has itemrefs => (
     traits     => ['Array'],
     is         => 'ro',
@@ -41,6 +47,7 @@ sub encode
     my ($self, $writer) = @_;
     $writer->startTag("spine",
         toc => $self->toc,
+        $self->page_progression_direction ? ( "page-progression-direction" => $self->page_progression_direction ) : (),
     );
 
     foreach my $itemref (@{$self->itemrefs()}) {