/usr/local/CPAN/SPOPS/My/Security.pm

• package My::Security
  • _base_config
  • config_class
• EOF

package My::Security;

# $Id: Security.pm,v 3.4 2004/01/10 02:49:58 lachoy Exp $

use strict;
use Data::Dumper  qw( Dumper );
use SPOPS;
use SPOPS::Initialize;
use SPOPS::Secure qw( :level :scope );

$My::Security::VERSION = sprintf("%d.%02d", q$Revision: 3.4 $ =~ /(\d+)\.(\d+)/);

sub _base_config {
    my $config = {
       'security' => {
           class        => 'My::Security',
           isa          => [ 'My::CommonResources', 'SPOPS::Secure::DBI', 'My::Common' ],
           rules_from   => [ 'SPOPS::Tool::DBI::DiscoverField' ],
           field_discover => 'yes',
           field        => [],
           id_field     => 'sid',
           increment_field => 1,
           sequence_name => 'sp_security_seq',
           no_insert    => [ qw/ sid / ],
           skip_undef   => [ qw/ object_id scope_id / ],
           no_update    => [ qw/ sid object_id class scope scope_id / ],
           base_table   => 'spops_security',
           sql_defaults => [ qw/ object_id scope_id / ],
           alias        => [],
           has_a        => {},
           links_to     => {},
           skip_object_key => 1,
       },
    };
    return $config;
}

sub config_class {
    SPOPS::Initialize->process({ config => [ _base_config() ] });
}

&config_class;

1;