home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / xampp / xampp-perl-addon-1.4.9-installer.exe / boolean.pm < prev    next >
Encoding:
Text File  |  2001-11-05  |  1.0 KB  |  38 lines
  1. ############################################################################
  2. #
  3. # Win32::ASP::Field::boolean - implements boolean fields in the Win32-ASP-DB system
  4. #
  5. # Author: Toby Everett
  6. # Revision: 0.02
  7. # Last Change:
  8. ############################################################################
  9. # Copyright 1999, 2000 Toby Everett.  All rights reserved.
  10. #
  11. # This file is distributed under the Artistic License. See
  12. # http://www.ActiveState.com/corporate/artistic_license.htm or
  13. # the license that comes with your perl distribution.
  14. #
  15. # For comments, questions, bugs or general interest, feel free to
  16. # contact Toby Everett at teverett@alascom.att.com
  17. ############################################################################
  18.  
  19. use Win32::ASP::Field::bit;
  20. use Error qw/:try/;
  21. use Win32::ASP::Error;
  22.  
  23. package Win32::ASP::Field::boolean;
  24.  
  25. @ISA = ('Win32::ASP::Field::bit');
  26.  
  27. use strict;
  28.  
  29. sub _as_sql {
  30.   my $self = shift;
  31.   my($value) = @_;
  32.  
  33.   $self->check_value($value);
  34.   return -$value;
  35. }
  36.  
  37. 1;
  38.