Repository::Simple::Permission - Defines the permission constants


Repository-Simple documentation Contained in the Repository-Simple distribution.

Index


Code Index:

NAME

Top

Repository::Simple::Permission - Defines the permission constants

SYNOPSIS

Top

  # Automatically imports all permission constants
  use Repository::Simple::Permission;

  $repository->check_permission('/foo/bar', $READ);
  $repository->check_permission('/foo/bar', $ADD_NODE);
  $repository->check_permission('/foo/bar', $SET_PROPERTY);
  $repository->check_permission('/foo/bar', $REMOVE);

  # Just import some of them
  use Repository::Simple::Permission qw( $READ $SET_PROPERTY );

  $repository->check_permission('/foo/bar', $READ);
  $repository->check_permission('/foo/bar', $SET_PROPERTY);

  # Or use constants by full name
  use Repository::Simple::Permission qw

  $repository->check_permission('/foo/bar', 
      $Repository::Simple::Permission::READ);
  $repository->check_permission('/foo/bar', 
      $Repository::Simple::Permission::ADD_NODE);
  $repository->check_permission('/foo/bar', 
      $Repository::Simple::Permission::$SET_PROPERTY);
  $repository->check_permission('/foo/bar', 
      $Repository::Simple::Permission::REMOVE);

DESCRIPTION

Top

This class defines the permission constants.

AUTHOR

Top

Andrew Sterling Hanenkamp, <hanenkamp@cpan.org>

LICENSE AND COPYRIGHT

Top


Repository-Simple documentation Contained in the Repository-Simple distribution.
package Repository::Simple::Permission;

use strict;
use warnings;

our $VERSION = '0.06';

use Repository::Simple::Util;

our @CARP_NOT = qw( Repository::Simple::Util );

use Readonly;
require Exporter;

our @ISA = qw( Exporter );

our @EXPORT = qw( $ADD_NODE $SET_PROPERTY $READ $REMOVE );

Readonly our $ADD_NODE     => 'add_node';
Readonly our $SET_PROPERTY => 'set_property';
Readonly our $REMOVE       => 'remove';
Readonly our $READ         => 'read';

1