[Bps-public-commit] GnuPG-Interface branch, master, updated. 37f4c1c9c2356c3771e39e09ec763ca093e14989

[sartak at bestpractical.com]

The branch, master has been updated
       via  37f4c1c9c2356c3771e39e09ec763ca093e14989 (commit)
      from  8860a674572aa0a3b34a5f8b44ddf4103b46a90f (commit)

Summary of changes:
 lib/GnuPG/Fingerprint.pm |    2 ++
 lib/GnuPG/Handles.pm     |    2 ++
 lib/GnuPG/Interface.pm   |    6 ++++--
 lib/GnuPG/Key.pm         |    2 ++
 lib/GnuPG/Options.pm     |    2 ++
 lib/GnuPG/PrimaryKey.pm  |    2 ++
 lib/GnuPG/PublicKey.pm   |    2 ++
 lib/GnuPG/SecretKey.pm   |    2 ++
 lib/GnuPG/Signature.pm   |    2 ++
 lib/GnuPG/SubKey.pm      |    2 ++
 lib/GnuPG/UserId.pm      |    2 ++
 11 files changed, 24 insertions(+), 2 deletions(-)

- Log -----------------------------------------------------------------
commit 37f4c1c9c2356c3771e39e09ec763ca093e14989
Author: Shawn M Moore <sartak at gmail.com>
Date:   Tue Apr 21 06:01:51 2009 -0400

    Use make_immutable

diff --git a/lib/GnuPG/Fingerprint.pm b/lib/GnuPG/Fingerprint.pm
index 630d802..1335d30 100644
--- a/lib/GnuPG/Fingerprint.pm
+++ b/lib/GnuPG/Fingerprint.pm
@@ -30,6 +30,8 @@ sub hex_data
     return $self->as_hex_string();
 }
 
+__PACKAGE__->meta->make_immutable;
+
 1;
 
 __END__
diff --git a/lib/GnuPG/Handles.pm b/lib/GnuPG/Handles.pm
index af001d3..fabf31c 100644
--- a/lib/GnuPG/Handles.pm
+++ b/lib/GnuPG/Handles.pm
@@ -57,6 +57,8 @@ sub BUILD {
     $self->hash_init(%$args);
 }
 
+__PACKAGE__->meta->make_immutable;
+
 1;
 
 =head1 NAME
diff --git a/lib/GnuPG/Interface.pm b/lib/GnuPG/Interface.pm
index 22f9811..65ab9a9 100644
--- a/lib/GnuPG/Interface.pm
+++ b/lib/GnuPG/Interface.pm
@@ -61,8 +61,6 @@ struct(
     }
 );
 
-1;
-
 #################################################################
 # real worker functions
 
@@ -337,6 +335,10 @@ sub my_fileno {
     return $fileno;
 }
 
+__PACKAGE__->meta->make_immutable;
+
+1;
+
 __END__
 
 ###################################################################
diff --git a/lib/GnuPG/Key.pm b/lib/GnuPG/Key.pm
index 2e47bfa..6cda91e 100644
--- a/lib/GnuPG/Key.pm
+++ b/lib/GnuPG/Key.pm
@@ -36,6 +36,8 @@ sub short_hex_id {
     return substr $self->hex_id(), -8;
 }
 
+__PACKAGE__->meta->make_immutable;
+
 1;
 
 __END__
diff --git a/lib/GnuPG/Options.pm b/lib/GnuPG/Options.pm
index a641aa5..d82a146 100644
--- a/lib/GnuPG/Options.pm
+++ b/lib/GnuPG/Options.pm
@@ -179,6 +179,8 @@ sub get_meta_args {
     return @args;
 }
 
+__PACKAGE__->meta->make_immutable;
+
 1;
 
 __END__
diff --git a/lib/GnuPG/PrimaryKey.pm b/lib/GnuPG/PrimaryKey.pm
index 76e93fd..d84bfa7 100644
--- a/lib/GnuPG/PrimaryKey.pm
+++ b/lib/GnuPG/PrimaryKey.pm
@@ -38,6 +38,8 @@ has $_ => (
     clearer => 'clear_' . $_,
 ) for qw( local_id owner_trust );
 
+__PACKAGE__->meta->make_immutable;
+
 1;
 
 __END__
diff --git a/lib/GnuPG/PublicKey.pm b/lib/GnuPG/PublicKey.pm
index 2fa5b24..723266f 100644
--- a/lib/GnuPG/PublicKey.pm
+++ b/lib/GnuPG/PublicKey.pm
@@ -18,6 +18,8 @@ use Any::Moose;
 
 BEGIN { extends qw( GnuPG::PrimaryKey ) }
 
+__PACKAGE__->meta->make_immutable;
+
 1;
 
 __END__
diff --git a/lib/GnuPG/SecretKey.pm b/lib/GnuPG/SecretKey.pm
index b54139a..18cc161 100644
--- a/lib/GnuPG/SecretKey.pm
+++ b/lib/GnuPG/SecretKey.pm
@@ -18,6 +18,8 @@ use Any::Moose;
 
 BEGIN { extends qw( GnuPG::PrimaryKey ) }
 
+__PACKAGE__->meta->make_immutable;
+
 1;
 
 __END__
diff --git a/lib/GnuPG/Signature.pm b/lib/GnuPG/Signature.pm
index 88e8ded..f492aec 100644
--- a/lib/GnuPG/Signature.pm
+++ b/lib/GnuPG/Signature.pm
@@ -21,6 +21,8 @@ has [qw( algo_num hex_id user_id_string date_string )] => (
     is  => 'rw',
 );
 
+__PACKAGE__->meta->make_immutable;
+
 1;
 
 __END__
diff --git a/lib/GnuPG/SubKey.pm b/lib/GnuPG/SubKey.pm
index 56cc726..4866b1d 100644
--- a/lib/GnuPG/SubKey.pm
+++ b/lib/GnuPG/SubKey.pm
@@ -22,6 +22,8 @@ has [qw( validity   owner_trust  local_id  signature )] => (
     is  => 'rw',
 );
 
+__PACKAGE__->meta->make_immutable;
+
 1;
 
 __END__
diff --git a/lib/GnuPG/UserId.pm b/lib/GnuPG/UserId.pm
index 1f06a28..ad37ea5 100644
--- a/lib/GnuPG/UserId.pm
+++ b/lib/GnuPG/UserId.pm
@@ -39,6 +39,8 @@ sub user_id_string {
     return $self->as_string();
 }
 
+__PACKAGE__->meta->make_immutable;
+
 1;
 
 __END__

-----------------------------------------------------------------------