The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
OpusVL-Preferences-0.33
River stage zero No dependents
++
/ OpusVL::Preferences

NAME

OpusVL::Preferences - Generic DBIC preferences module

VERSION

version 0.33

SYNOPSIS

This is a really simple module to pull into result classes so you can attach preferences, rather than have to continually extend the schema definition where its probably not appropriate.

Say you had an Employees class, and wanted to define the following preferences for a customer:

grows_plants
has_untidy_desk
likes_noodles

You would set up your Result class as follows:

        package Result::Employee;

        use strict;
        use Moose;
        
        extends 'DBIx::Class::Core';

        with 'OpusVL::Preferences::RolesFor::Result::PrfOwner';

        __PACKAGE__->prf_owner_init;

        ...

And the ResultSet class would be:

        package ResultSet::Employee;

        use strict;
        use Moose;

        extends 'DBIx::Class::ResultSet';

        with 'OpusVL::Preferences::RolesFor::ResultSet::PrfOwner';

        ...

This would initialise the class with 3 preferences, set to the appropriate defaults. Within the Employee class, the following methods are exposed to manage the preferences:

Result Class Methods

prf_get

Get the current value of the preference (either the default or local copy as appropriate).

        $p = $employee->prf_get ('grows_plants');    # $p == 1

prf_set

Overides the default preference value for the employee in question:

        $employee = prf_set (grows_plants => 0);
        $p = $employee->prf_get ('grows_plants');    # $p == 0

prf_reset

Deletes any local overrides and uses the default

        $employee->prf_reset ('grows_plants');
        $p = $employee->prf_get ('grows_plants');    # $p == 1

prf_preferences

Returns a resultset containing PrfPreference classes.

ResultSet Methods

prf_defaults

Returns a resultset of the default preferences setup for this resultset. Add more results to this object to add more defaults. For example, the following might be in the initdb routine:

        sub initdb
        {
                my $self = shift;

                $self->prf_defaults->populate
                ([
                        { name => 'grown_plants'    => default_value => '1' },
                        { name => 'has_untidy_desk' => default_value => '1' },
                        { name => 'likes_noodles'   => default_value => '1' },
                ]);
        }

To be completed. Will allow an Employee resultset to be return using preferences as a search parameter.

BUGS

None. Past, present and future.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc OpusVL::Preferences

If you require assistance, support, or further development of this software, please contact OpusVL using the details below:

ACKNOWLEDGEMENTS

AUTHOR

OpusVL - www.opusvl.com

COPYRIGHT AND LICENSE

This software is copyright (c) 2011 by OpusVL - www.opusvl.com.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.