[glibmm/gmmproc-refactor] Regenerate perl modules.

[Krzesimir Nowak <krnowak src gnome org>]

commit f89ff55f68c3e351864f01c9930b51d6d0c42c09
Author: Krzesimir Nowak <qdlacz gmail com>
Date:   Mon Sep 26 16:04:51 2011 +0200

    Regenerate perl modules.

 tools/pm/Gir/Handlers/Generated/Class.pm       |   43 ++++++++++++++++++++++++
 tools/pm/Gir/Handlers/Generated/Common/Tags.pm |    6 ++-
 2 files changed, 47 insertions(+), 2 deletions(-)
---
diff --git a/tools/pm/Gir/Handlers/Generated/Class.pm b/tools/pm/Gir/Handlers/Generated/Class.pm
index 5497e68..84bab7e 100644
--- a/tools/pm/Gir/Handlers/Generated/Class.pm
+++ b/tools/pm/Gir/Handlers/Generated/Class.pm
@@ -34,6 +34,7 @@ use Gir::Handlers::Generated::GlibSignal;
 use Gir::Handlers::Generated::Implements;
 use Gir::Handlers::Generated::Method;
 use Gir::Handlers::Generated::Property;
+use Gir::Handlers::Generated::Union;
 use Gir::Handlers::Generated::VirtualMethod;
 
 ##
@@ -135,6 +136,18 @@ sub _property_start_impl ($$$)
   }
 }
 
+sub _union_start_impl ($$$)
+{
+  my $self = shift;
+
+  unless ($self->_is_start_ignored ('union'))
+  {
+    #TODO: throw something.
+    print STDERR 'Gir::Handlers::Generated::Class::_union_start_impl not implemented.' . "\n";
+    exit (1);
+  }
+}
+
 sub _virtual_method_start_impl ($$$)
 {
   my $self = shift;
@@ -243,6 +256,18 @@ sub _property_end_impl ($$)
   }
 }
 
+sub _union_end_impl ($$)
+{
+  my $self = shift;
+
+  unless ($self->_is_end_ignored ('union'))
+  {
+    #TODO: throw something.
+    print STDERR 'Gir::Handlers::Generated::Class::_union_end_impl not implemented.' . "\n";
+    exit (1);
+  }
+}
+
 sub _virtual_method_end_impl ($$)
 {
   my $self = shift;
@@ -271,6 +296,7 @@ sub _setup_handlers ($)
       'implements' => \&_implements_start,
       'method' => \&_method_start,
       'property' => \&_property_start,
+      'union' => \&_union_start,
       'virtual-method' => \&_virtual_method_start
     }),
     Gir::Handlers::Generated::Common::Store->new
@@ -283,6 +309,7 @@ sub _setup_handlers ($)
       'implements' => \&_implements_end,
       'method' => \&_method_end,
       'property' => \&_property_end,
+      'union' => \&_union_end,
       'virtual-method' => \&_virtual_method_end
     })
   );
@@ -304,6 +331,7 @@ sub _setup_subhandlers ($)
       'implements',
       'method',
       'property',
+      'union',
       'virtual-method'
     ])
   );
@@ -376,6 +404,14 @@ sub _property_start ($$@)
   $self->_property_start_impl ($parser, $params);
 }
 
+sub _union_start ($$@)
+{
+  my ($self, $parser, @atts_vals) = @_;
+  my $params = Gir::Handlers::Generated::Common::Tags::get_union_params (@atts_vals);
+
+  $self->_union_start_impl ($parser, $params);
+}
+
 sub _virtual_method_start ($$@)
 {
   my ($self, $parser, @atts_vals) = @_;
@@ -440,6 +476,13 @@ sub _property_end ($$)
   $self->_property_end_impl ($parser);
 }
 
+sub _union_end ($$)
+{
+  my ($self, $parser) = @_;
+
+  $self->_union_end_impl ($parser);
+}
+
 sub _virtual_method_end ($$)
 {
   my ($self, $parser) = @_;
diff --git a/tools/pm/Gir/Handlers/Generated/Common/Tags.pm b/tools/pm/Gir/Handlers/Generated/Common/Tags.pm
index 0c41602..8e885f6 100644
--- a/tools/pm/Gir/Handlers/Generated/Common/Tags.pm
+++ b/tools/pm/Gir/Handlers/Generated/Common/Tags.pm
@@ -142,7 +142,7 @@ sub get_constant_params (@)
       'value'
     ],
     [
-
+      ['c:type', undef]
     ],
     \ _
   );
@@ -479,6 +479,8 @@ sub get_record_params (@)
     ],
     [
       ['c:symbol-prefix', undef],
+      ['deprecated', undef],
+      ['deprecated-version', undef],
       ['disguised', 0],
       ['foreign', 0],
       ['glib:get-type', undef],
@@ -545,11 +547,11 @@ sub get_union_params (@)
   return Gir::Handlers::Generated::Common::Misc::extract_values
   (
     [
-      'c:type',
       'name'
     ],
     [
       ['c:symbol-prefix', undef],
+      ['c:type', undef],
       ['glib:get-type', undef],
       ['glib:type-name', undef]
     ],