From 61ecc567854ccd4f439fe0857c007837823a6a29 Mon Sep 17 00:00:00 2001
From: Kang-min Liu <gugod@gugod.org>
Date: Sun, 24 Feb 2013 17:22:34 +0100
Subject: [PATCH] Add page_progression_direction property and make proper xml
 attribute.

---
 lib/EBook/EPUB/Spine.pm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/lib/EBook/EPUB/Spine.pm b/lib/EBook/EPUB/Spine.pm
index fbd7b0d..17fc352 100644
--- 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()}) {