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()}) {