#!/usr/bin/perl
use 5.032;
use warnings;
use strict;
use PDF::API2;

my ($stringy_bare_pdf, $stringy_outline_pdf);

BARE_PDF: {
    my $pdf = PDF::API2->new(-compress => 0);
    my $page1 = $pdf->page();
    
    $pdf->save('bare.pdf');
}

OUTLINE: {
    my $pdf = PDF::API2->new(-compress => 0);
    my $page1 = $pdf->page();
    
    my $outlines = $pdf->outlines();
    my $outline = $outlines->outline();
    $outline->title('Test Outline 1');
    $outline->dest(1);
    
    $stringy_outline_pdf = $pdf->to_string();
    
    open my $fh, '>', 'outline.pdf' or die;
    binmode $fh;
    print $fh $stringy_outline_pdf;
    close $fh;
}

DELETE_OUTLINE: { 
    my $pdf = PDF::API2->from_string($stringy_outline_pdf, -compress => 0) or die $!;
    
    my $root = $pdf->outlines();
    my $outline = $root->first();   
    $outline->delete();
    
    $pdf->save('outline_deleted.pdf');
}

MODIFY_OUTLINE: {
    my $pdf = PDF::API2->from_string($stringy_outline_pdf, -compress => 0) or die $!;
    
    my $root = $pdf->outlines();
    my $outline = $root->outline();
    $outline->title('Test Outline 2');
    $outline->dest(1);
    
    $pdf->save('outline_modified.pdf');
}