The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
 / 
FWS-V2-0.009
River stage zero No dependents
/ FWS::V2::Check

NAME

FWS::V2::Check - Framework Sites version 2 validation and checking methods

VERSION

Version 0.003

SYNOPSIS

        use FWS::V2;

        #
        # Create $fws
        #       
        my $fws = FWS::V2->new();

        #
        # all simple boolean response in conditionals
        #
        if ($fws->isValidEmail('this@email.com')) { print "Its not real, but it could be!\n" } 
        else { print "Yuck, bad email.\n" }

DESCRIPTION

Simple methods that will return boolean results based on the validation of the passed parameter.

METHODS

isAdminLoggedIn

Return a 0 or 1 depending if a admin user is currently logged in.

        #
        # do something if logged in as an admin user
        #
        if ($fws->isAdminLoggedIn()) { $valueHash{'html'} .= 'I am logged in as a admin<br/>' }

isUserLoggedIn

Return a 0 or 1 depending if a site user is currently logged in.

        #
        # do something if logged in as an site user
        #
        if ($fws->isUserLoggedIn()) { $valueHash{'html'} .= 'I am logged in as a user<br/>' }

isValidEmail

Return a boolean response to validate if an email address is well formed.

AUTHOR

Nate Lewis, <nlewis at gnetworks.com>

BUGS

Please report any bugs or feature requests to bug-fws-lite at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=FWS-Check. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

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

    perldoc FWS::V2::Check

You can also look for information at:

LICENSE AND COPYRIGHT

Copyright 2012 Nate Lewis.

This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.