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 / ContDisp.pm < prev    next >
Encoding:
Perl POD Document  |  2002-06-14  |  1.2 KB  |  65 lines
  1. package MIME::Field::ContDisp;
  2.  
  3.  
  4. =head1 NAME
  5.  
  6. MIME::Field::ContDisp - a "Content-disposition" field
  7.  
  8.  
  9. =head1 DESCRIPTION
  10.  
  11. A subclass of Mail::Field.
  12.  
  13. I<Don't use this class directly... its name may change in the future!>
  14. Instead, ask Mail::Field for new instances based on the field name!
  15.  
  16.  
  17. =head1 SYNOPSIS
  18.  
  19.     use Mail::Field;
  20.     use MIME::Head;
  21.  
  22.     # Create an instance from some text:
  23.     $field = Mail::Field->new('Content-disposition', $text);
  24.  
  25.     # Inline or attachment?
  26.     $type = $field->type;
  27.  
  28.     # Recommended filename?
  29.     $filename = $field->filename;
  30.  
  31.  
  32. =head1 AUTHOR
  33.  
  34. Eryq (F<eryq@zeegee.com>), ZeeGee Software Inc (F<http://www.zeegee.com>).
  35.  
  36.  
  37. =cut
  38.  
  39. require 5.001;
  40. use strict;
  41. use MIME::Field::ParamVal;
  42. use vars qw($VERSION @ISA);
  43.  
  44. @ISA = qw(MIME::Field::ParamVal);
  45.  
  46. # The package version, both in 1.23 style *and* usable by MakeMaker:
  47. $VERSION = substr q$Revision: 5.403 $, 10;
  48.  
  49. # Install it: 
  50. bless([])->register('Content-disposition');
  51.  
  52. #------------------------------
  53.  
  54. sub filename {
  55.     shift->paramstr('filename', @_);
  56. }
  57.  
  58. sub type {
  59.     shift->paramstr('_', @_);
  60. }
  61.  
  62. #------------------------------
  63. 1;
  64.  
  65.