[perl-Devel-EnforceEncapsulation] Initial import of perl-Devel-EnforceEncapsulation-0.50-3

[Paul Howarth]

commit a45f142b845aa5ec15a023254f7a48dbe37608f5
Author: Paul Howarth <paul at city-fan.org>
Date:   Sun Apr 24 22:10:41 2011 +0100

    Initial import of perl-Devel-EnforceEncapsulation-0.50-3
    
    Encapsulation is the practice of creating subroutines to access the properties
    of a class instead of accessing those properties directly. The advantage of
    good encapsulation is that the author is permitted to change the internal
    implementation of a class without breaking its usage.
    
    Object-oriented programming in Perl is most commonly implemented via blessed
    hashes. This practice makes it easy for users of a class to violate
    encapsulation by simply accessing the hash values directly. Although less
    common, the same applies to classes implemented via blessed arrays, scalars,
    filehandles, etc.
    
    This module is a hack to block those direct accesses. If you try to access a
    hash value of an object from its own class, or a superclass or subclass, all
    goes well. If you try to access a hash value from any other package, an
    exception is thrown. The same applies to the scalar value of a blessed scalar,
    entry in a blessed array, etc.
    
    To be clear: this class is NOT intended for strict enforcement of
    encapsulation. If you want bullet-proof encapsulation, use inside-out objects
    or the like. Instead, this module is intended to be a development or debugging
    aid in catching places where direct access is used against classes implemented
    as blessed hashes.
    
    To repeat: the encapsulation enforced here is a hack and is easily
    circumvented. Please use this module for good (finding bugs), not evil (making
    life harder for downstream developers).

 .gitignore                           |    1 +
 perl-Devel-EnforceEncapsulation.spec |   74 ++++++++++++++++++++++++++++++++++
 sources                              |    1 +
 3 files changed, 76 insertions(+), 0 deletions(-)
---
diff --git a/.gitignore b/.gitignore
index e69de29..28302f8 100644
--- a/.gitignore
+++ b/.gitignore
@@ -0,0 +1 @@
+/Devel-EnforceEncapsulation-0.50.tgz
diff --git a/perl-Devel-EnforceEncapsulation.spec b/perl-Devel-EnforceEncapsulation.spec
new file mode 100644
index 0000000..679735c
--- /dev/null
+++ b/perl-Devel-EnforceEncapsulation.spec
@@ -0,0 +1,74 @@
+Name:		perl-Devel-EnforceEncapsulation
+Version:	0.50
+Release:	3%{?dist}
+Summary:	Find access violations to blessed objects
+Group:		Development/Libraries
+License:	GPL+ or Artistic
+URL:		http://search.cpan.org/dist/Devel-EnforceEncapsulation/
+Source0:	http://search.cpan.org/CPAN/authors/id/C/CL/CLOTHO/Devel-EnforceEncapsulation-%{version}.tgz
+BuildArch:	noarch
+BuildRequires:	perl(ExtUtils::MakeMaker)
+BuildRequires:	perl(Test::More)
+BuildRequires:	perl(Test::Pod)
+BuildRequires:	perl(Test::Pod::Coverage)
+Requires:	perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
+
+%description
+Encapsulation is the practice of creating subroutines to access the properties
+of a class instead of accessing those properties directly. The advantage of
+good encapsulation is that the author is permitted to change the internal
+implementation of a class without breaking its usage.
+
+Object-oriented programming in Perl is most commonly implemented via blessed
+hashes. This practice makes it easy for users of a class to violate
+encapsulation by simply accessing the hash values directly. Although less
+common, the same applies to classes implemented via blessed arrays, scalars,
+filehandles, etc.
+
+This module is a hack to block those direct accesses. If you try to access a
+hash value of an object from its own class, or a superclass or subclass, all
+goes well. If you try to access a hash value from any other package, an
+exception is thrown. The same applies to the scalar value of a blessed scalar,
+entry in a blessed array, etc.
+
+To be clear: this class is NOT intended for strict enforcement of
+encapsulation. If you want bullet-proof encapsulation, use inside-out objects
+or the like. Instead, this module is intended to be a development or debugging
+aid in catching places where direct access is used against classes implemented
+as blessed hashes.
+
+To repeat: the encapsulation enforced here is a hack and is easily
+circumvented. Please use this module for good (finding bugs), not evil (making
+life harder for downstream developers).
+
+%prep
+%setup -q -n Devel-EnforceEncapsulation-%{version}
+
+%build
+perl Makefile.PL INSTALLDIRS=vendor
+make %{?_smp_mflags}
+
+%install
+make pure_install DESTDIR=%{buildroot}
+find %{buildroot} -type f -name .packlist -exec rm -f {} \;
+find %{buildroot} -depth -type d -exec rmdir {} \; 2>/dev/null
+%{_fixperms} %{buildroot}
+
+%check
+make test AUTHOR_TEST=1 AUTHOR_TEST_CDOLAN=1
+
+%files
+%defattr(-,root,root,-)
+%doc CHANGES LICENSE README index.html
+%{perl_vendorlib}/Devel/
+%{_mandir}/man3/Devel::EnforceEncapsulation.3pm*
+
+%changelog
+* Mon Apr 11 2011 Paul Howarth <paul at city-fan.org> - 0.50-3
+- Clean up for modern rpmbuild
+
+* Mon Apr 11 2011 Paul Howarth <paul at city-fan.org> - 0.50-2
+- Nobody else likes macros for commands
+
+* Fri Mar 18 2011 Paul Howarth <paul at city-fan.org> - 0.50-1
+- Initial RPM version
diff --git a/sources b/sources
index e69de29..345d376 100644
--- a/sources
+++ b/sources
@@ -0,0 +1 @@
+434b5a9e99e1153282076680c9de29c5  Devel-EnforceEncapsulation-0.50.tgz