Record Profiles

• To use Record based access, you need to define your database profile ahead of time:

• my $profile = {

• customer =>

• {

• fields => [qw( name, phone )],

• keys => [qw( customer_no )],

• table => “customer”,

• },

• order_items =>

• {

• fields => [qw( quantity subtotal ) ],

• keys => [ qw( order_no code ) ],

• table => "order_items",

• },

• };

• my $DB = DBIx::SearchProfiles->new( $dbh, $profile );

Notes: