# Detect the distribution in use %global __despace head -n 1 | tr -d '[:space:]' | sed -e 's/[(].*[)]//g' %global __lower4 cut -c 1-4 | tr '[:upper:]' '[:lower:]' %global __distfile %([ -f /etc/SuSE-release ] && echo /etc/SuSE-release || echo /etc/redhat-release) %global __distinit %(sed -e 's/ release .*//' -e 's/\\([A-Za-z]\\)[^ ]*/\\1/g' %{__distfile} | %{__despace} | %{__lower4}) %global __distvers %(sed -e 's/.* release \\([^. ]*\\).*/\\1/' %{__distfile} | %{__despace}) # Identify Alma, CentOS, CentOS Stream and Rocky Linux as rhel %if "%{__distinit}" == "a" || "%{__distinit}" == "c" || "%{__distinit}" == "cl" || "%{__distinit}" == "cs" || "%{__distinit}" == "rl" %global __distinit rhel %endif # Dist tag for Fedora is still "fc" %if "%{__distinit}" == "f" %global __distinit fc %endif Name: perl-Devel-EnforceEncapsulation Version: 0.51 Release: 27.%{__distinit}%{__distvers} Summary: Find access violations to blessed objects License: GPL-1.0-or-later OR Artistic-1.0-Perl URL: https://metacpan.org/release/Devel-EnforceEncapsulation Source0: https://cpan.metacpan.org/modules/by-module/Devel/Devel-EnforceEncapsulation-%{version}.tar.gz BuildArch: noarch # Module Build BuildRequires: coreutils BuildRequires: findutils BuildRequires: make BuildRequires: perl-generators BuildRequires: perl-interpreter BuildRequires: perl(ExtUtils::MakeMaker) # Module Runtime BuildRequires: perl(Carp) BuildRequires: perl(English) BuildRequires: perl(overload) BuildRequires: perl(strict) BuildRequires: perl(warnings) # Test Suite BuildRequires: perl(base) BuildRequires: perl(Test::More) # Optional Tests BuildRequires: perl(Pod::Coverage) >= 0.17 BuildRequires: perl(Test::Pod) >= 1.14 BuildRequires: perl(Test::Pod::Coverage) >= 1.04 # Dependencies %if 0%{?fedora} < 38 && 0%{?rhel} < 10 Requires: perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version)) %endif %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 -delete %{_fixperms} -c %{buildroot} %check make test AUTHOR_TEST=1 AUTHOR_TEST_CDOLAN=1 %files %license LICENSE %doc CHANGES README %{perl_vendorlib}/Devel/ %{_mandir}/man3/Devel::EnforceEncapsulation.3* %changelog * Fri Mar 31 2023 Paul Howarth - 0.51-27 - Use SPDX-format license tag * Fri Jan 8 2021 Paul Howarth - 0.51-20 - Use %%license unconditionally * Thu Jun 13 2019 Paul Howarth - 0.51-15 - Modernize spec - Switch upstream from search.cpan.org to metacpan.org - BR: perl-generators unconditionally - BR: perl-interpreter rather than perl - Don't explicitly clean buildroot in %%install section - Drop explicit %%clean section - Drop legacy BuildRoot: and Group: tags * Thu Aug 18 2016 Paul Howarth - 0.51-7 - Classify buildreqs by usage - Simplify find command using -delete * Sun Aug 31 2014 Paul Howarth - 0.51-3 - Use %%license where possible * Fri Mar 28 2014 Paul Howarth - 0.51-1 - Update to 0.51 - Fix for change in overload behavior in Perl 5.17 onwards (CPAN RT#77486) - This release by CDOLAN -> update source URL - Drop %%defattr, redundant since rpm 4.4 * Wed Jul 17 2013 Paul Howarth - 0.50-10 - Fix for change in overload behavior in Perl 5.17 onwards (CPAN RT#77486) * Thu Jun 28 2012 Paul Howarth - 0.50-6 - BR: perl(Carp) and perl(English) - Don't need to remove empty directories from the buildroot - Drop support for old distributions prior to FC-3: - Don't need to define %%{perl_vendorlib} - Use DESTDIR rather than PERL_INSTALL_ROOT * Fri Jun 24 2011 Paul Howarth - 0.50-3 - Rebuild for perl 5.14.1 in Rawhide - Fix dist tag for CentOS 6 and Scientific Linux * Mon Apr 11 2011 Paul Howarth - 0.50-2 - Nobody else likes macros for commands * Fri Mar 18 2011 Paul Howarth - 0.50-1 - Initial RPM version