provide get_width/height method for page dimension

c9s · Apr 27, 2009 · 3253a1b · 3253a1b
1 parent 2e51a1b
commit 3253a1b
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 1 deletion.
diff --git a/Poppler.xs b/Poppler.xs
@@ -105,7 +105,21 @@ poppler_page_render (page, cr);
 CODE:
 OUTPUT:
 
-
+MODULE = Poppler    PACKAGE = Poppler::Page::Dimension
+
+int
+_PageDimension::get_width()
+CODE:
+    RETVAL = THIS->w;
+OUTPUT:
+    RETVAL
+
+int
+_PageDimension::get_height()
+CODE:
+    RETVAL = THIS->h;
+OUTPUT:
+    RETVAL
 
 
 

diff --git a/test-case.pl b/test-case.pl
@@ -17,6 +17,11 @@
 my $page = $o->get_page( 0 );
 warn Dumper( $page );
 
+my $dimension = $page->get_size;
+warn Dumper( $dimension );
+
+warn $dimension->get_width;
+
 
 
 __END__