gnome-perl-introspection r39 - trunk/PDF-Poppler/lib/PDF

[tsch svn gnome org]

Author: tsch
Date: Sat Nov  8 20:28:42 2008
New Revision: 39
URL: http://svn.gnome.org/viewvc/gnome-perl-introspection?rev=39&view=rev

Log:
Provide convenience override for PDF::Poppler::Page::get_selection_region.


Modified:
   trunk/PDF-Poppler/lib/PDF/Poppler.pm

Modified: trunk/PDF-Poppler/lib/PDF/Poppler.pm
==============================================================================
--- trunk/PDF-Poppler/lib/PDF/Poppler.pm	(original)
+++ trunk/PDF-Poppler/lib/PDF/Poppler.pm	Sat Nov  8 20:28:42 2008
@@ -116,4 +116,15 @@
   }
 }
 
+sub get_selection_region {
+  my $ref = Glib::Object::Introspection::invoke(
+    "PDF::Poppler::Page::get_selection_region", @_);
+
+  if (wantarray()) {
+    return defined $ref ? @$ref : ();
+  } else {
+    return defined $ref ? $ref->[-1] : undef;
+  }
+}
+
 1;