Code Index:

package Scalar::Readonly
__END__
EOF

NAME

Scalar::Readonly - Perl extension to the SvREADONLY scalar flag

SYNOPSIS

  use Scalar::Readonly ':all';
  my $foo = "foo";
  readonly_on($foo);
  $foo = "bar";  #ERROR!

  if(readonly($foo)) {
    readonly_off($foo);
  }

  readonly_off($]);
  $] = "6.0";

  print "This is Perl v$]";

DESCRIPTION

This simple modules can make scalars read-only. Usefull to protect configuration variables, for example.

This module can also be used to subvert Perl's many read-only variables to potential evil trickery.

EXPORT

':all' => readonly, readonly_on, readonly_off

AUTHOR

Philippe M. Chiasson, <gozer@cpan.org>

COPYRIGHT AND LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.3 or, at your option, any later version of Perl 5 you may have available.

package Scalar::Readonly; use 5.006; use strict; use warnings; require Exporter; our @ISA = qw(Exporter); # Items to export into callers namespace by default. Note: do not export # names by default without a very good reason. Use EXPORT_OK instead. # Do not simply export all your public functions/methods/constants. # This allows declaration use Scalar::Readonly ':all'; # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK # will save memory. our %EXPORT_TAGS = ( 'all' => [ qw( readonly readonly_on readonly_off ) ] ); our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); our @EXPORT = qw( ); our $VERSION = '0.02'; require XSLoader; XSLoader::load('Scalar::Readonly', $VERSION); # Preloaded methods go here. 1; __END__ # Below is stub documentation for your module. You'd better edit it!