package OpenOffice::OODoc::Document;

sub clone_page {
    my $self = shift;
    my ($source, $dest) = @_;
    my $p = $self->getElement(page_xpath($source)) or die;
    my $p2 = $p->copy();
    $p2->paste(last_child => $self->getElement('//office:presentation'));
    $self->setAttributes($p2, 'draw:name' => "page$dest");
}

sub page_xpath {
    my ($page) = @_;
    sprintf('//draw:page[@draw:name="page%d"]', $page);
}