From 0bde046945fa9d032e9b1b6d6329f1e5c96d194c Mon Sep 17 00:00:00 2001 From: fukachan Date: Tue, 23 Jan 2001 12:07:42 +0000 Subject: define Ticket:* class --- fml/lib/Ticket/Subject.pm | 69 +++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 69 insertions(+) create mode 100644 fml/lib/Ticket/Subject.pm (limited to 'fml/lib') diff --git a/fml/lib/Ticket/Subject.pm b/fml/lib/Ticket/Subject.pm new file mode 100644 index 00000000..b1afb284 --- /dev/null +++ b/fml/lib/Ticket/Subject.pm @@ -0,0 +1,69 @@ +#-*- perl -*- +# +# Copyright (C) 2001 Ken'ichi Fukamachi +# All rights reserved. This program is free software; you can +# redistribute it and/or modify it under the same terms as Perl itself. +# +# $Id$ +# $FML$ +# + +package Ticket::Subject; +use strict; +use vars qw(@ISA @EXPORT @EXPORT_OK); +use Carp; + +require Exporter; +@ISA = qw(Exporter); + + +sub new +{ + my ($self) = @_; + my ($type) = ref($self) || $self; + my $me = {}; + return bless $me, $type; +} + + +# ticket number generate +sub generate +{ + my ($self, $args) = @_; + + ; +} + + +=head1 NAME + +Ticket::Subject.pm - what is this + + +=head1 SYNOPSIS + +=head1 DESCRIPTION + +=head2 new + +=item Function() + + +=head1 AUTHOR + +Ken'ichi Fukamachi + +=head1 COPYRIGHT + +Copyright (C) 2001 Ken'ichi Fukamachi + +All rights reserved. This program is free software; you can +redistribute it and/or modify it under the same terms as Perl itself. + +=head1 HISTORY + +Ticket::Subject.pm appeared in fml5. + +=cut + +1; -- cgit v1.2.1