[perl-Gtk3] Add an override for Pango::Layout::set_markup

[Torsten Schönfeld <tsch src gnome org>]

commit 0376d1b14d3eaa7b797eb00083f93d6caa6310fb
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Tue Sep 29 22:18:36 2015 +0200

    Add an override for Pango::Layout::set_markup
    
    Making the length argument optional.

 lib/Gtk3.pm   |    9 ++++++++-
 t/overrides.t |    8 +++++++-
 2 files changed, 15 insertions(+), 2 deletions(-)
---
diff --git a/lib/Gtk3.pm b/lib/Gtk3.pm
index 5583056..7f06264 100644
--- a/lib/Gtk3.pm
+++ b/lib/Gtk3.pm
@@ -2036,7 +2036,8 @@ sub Gtk3::Gdk::Pixbuf::save_to_callback {
 
 # --- Pango ---
 
-=item * C<Pango::Layout::set_text> takes no C<length> argument.
+=item * The C<length> arguments of C<Pango::Layout::set_text> and C<set_markup>
+are optional.
 
 =cut
 
@@ -2046,6 +2047,12 @@ sub Pango::Layout::set_text {
     @_ == 3 ? @_ : (@_[0,1], -1)); # wants length in bytes
 }
 
+sub Pango::Layout::set_markup {
+  return Glib::Object::Introspection->invoke (
+    $_PANGO_BASENAME, 'Layout', 'set_markup',
+    @_ == 3 ? @_ : (@_[0,1], -1)); # wants length in bytes
+}
+
 =back
 
 =cut
diff --git a/t/overrides.t b/t/overrides.t
index 7c2bfc9..0488692 100644
--- a/t/overrides.t
+++ b/t/overrides.t
@@ -7,7 +7,7 @@ use warnings;
 use utf8;
 use Encode;
 
-plan tests => 210;
+plan tests => 212;
 
 note('Gtk3::CHECK_VERSION and check_version');
 {
@@ -770,4 +770,10 @@ note('Pango::Layout');
 
   $layout->set_text('Bla bla.');
   is ($layout->get_text, 'Bla bla.');
+
+  $layout->set_markup('<b>Bla</b> bla.', 10);
+  is ($layout->get_text, 'Bla');
+
+  $layout->set_markup('<b>Bla</b> bla.');
+  is ($layout->get_text, 'Bla bla.');
 }