diff options
| author | Piotr Rogoża | 2015-06-14 15:31:00 +0200 |
|---|---|---|
| committer | Piotr Rogoża | 2015-06-14 15:31:00 +0200 |
| commit | dbef4d385163dc54ad9c10f4a411f8f88bf90da8 (patch) | |
| tree | c1161b980168737e844ce21ba4de7391ecb6bddf | |
| download | aur-perl-tie-stdscalar.tar.gz | |
Initial import
| -rw-r--r-- | .SRCINFO | 14 | ||||
| -rw-r--r-- | PKGBUILD | 17 | ||||
| -rw-r--r-- | StdScalar.pm | 23 |
3 files changed, 54 insertions, 0 deletions
diff --git a/.SRCINFO b/.SRCINFO new file mode 100644 index 000000000000..9e346bbc34d7 --- /dev/null +++ b/.SRCINFO @@ -0,0 +1,14 @@ +pkgbase = perl-tie-stdscalar + pkgdesc = A dummy package for Tie::StdScalar + pkgver = 1.0.2 + pkgrel = 1 + url = http://www.perl.org + arch = any + license = GPL + license = PerlArtistic + depends = perl + source = StdScalar.pm + md5sums = 86fd54cdadec099fe8dbd0b64fb34795 + +pkgname = perl-tie-stdscalar + diff --git a/PKGBUILD b/PKGBUILD new file mode 100644 index 000000000000..0cb8156ad744 --- /dev/null +++ b/PKGBUILD @@ -0,0 +1,17 @@ +# Contributor: piotr rogoza < rogoza dot piotr at gmail dot com> +pkgname=perl-tie-stdscalar +pkgver=1.0.2 +pkgrel=1 +pkgdesc="A dummy package for Tie::StdScalar" +arch=(any) +license=('GPL' 'PerlArtistic') +url="http://www.perl.org" +depends=('perl') +source=(StdScalar.pm) + +build() { + cd ${srcdir} + install -Dm644 StdScalar.pm ${pkgdir}/usr/share/perl5/core_perl/Tie/StdScalar.pm || return 1 + +} +md5sums=('86fd54cdadec099fe8dbd0b64fb34795') diff --git a/StdScalar.pm b/StdScalar.pm new file mode 100644 index 000000000000..c0d4c8288f96 --- /dev/null +++ b/StdScalar.pm @@ -0,0 +1,23 @@ +package Tie::StdScalar; +@ISA = qw(Tie::Scalar); + +sub TIESCALAR { + my $class = shift; + my $instance = shift || undef; + return bless \$instance => $class; +} + +sub FETCH { + return ${$_[0]}; +} + +sub STORE { + ${$_[0]} = $_[1]; +} + +sub DESTROY { + undef ${$_[0]}; +} + +1; + |