diff --git a/README.md b/README.md index 7857df6..cdef8b9 100644 --- a/README.md +++ b/README.md @@ -26,7 +26,7 @@ use PDF::XObject::Image; my PDF::API6 $pdf .= new; my PDF::Tags $tags .= create: :$pdf; # create the document root -my PDF::Tags::Elem $doc = $tags.Document; +my PDF::Tags::Elem $doc = $tags.Document: :Lang; my PDF::Page $page = $pdf.add-page; my $header-font = $page.core-font: :family, :weight; diff --git a/docs/index.md b/docs/index.md index 7857df6..cdef8b9 100644 --- a/docs/index.md +++ b/docs/index.md @@ -26,7 +26,7 @@ use PDF::XObject::Image; my PDF::API6 $pdf .= new; my PDF::Tags $tags .= create: :$pdf; # create the document root -my PDF::Tags::Elem $doc = $tags.Document; +my PDF::Tags::Elem $doc = $tags.Document: :Lang; my PDF::Page $page = $pdf.add-page; my $header-font = $page.core-font: :family, :weight; diff --git a/t/attributes.pdf b/t/attributes.pdf index d7c6408..8b57146 100644 Binary files a/t/attributes.pdf and b/t/attributes.pdf differ diff --git a/t/attributes.t b/t/attributes.t index 61ed737..4ab684c 100644 --- a/t/attributes.t +++ b/t/attributes.t @@ -1,6 +1,6 @@ use v6; use Test; -plan 6; +plan 7; use PDF::Content::FontObj; use PDF::Tags; @@ -11,7 +11,9 @@ use PDF::COS::Name; my PDF::Class $pdf .= new; my PDF::Tags $tags .= create: :$pdf; -my PDF::Tags::Elem $doc = $tags.Document; +my PDF::Tags::Elem $doc = $tags.Document: :Lang; +my $lang = $doc.Lang; +is $doc.Lang, 'en-NZ'; my PDF::Page $page = $pdf.add-page; my PDF::Content::FontObj $header-font = $pdf.core-font: :family, :weight;