RFOLEY / Perlbug-2.93 / Perlbug / Object / Fixed.pm 

            

              
1
2
3
4
—
5
6
7
8
9
10
11
12
13
14
15
16
17
—
18
19
20
21
22
23
24
25
26
27
28
29
30
31
—
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
—
69
70
71
72
73
74
75
76
77
78
79
80
81
82

              
# Perlbug bug record handler
# (C) 1999 Richard Foley RFI perlbug@rfi.net
# $Id: Fixed.pm,v 1.10 2002/01/11 13:51:05 richardf Exp $
#
=head1 NAME
Perlbug::Object::Fixed - Fixed in Version handler 
=cut
package Perlbug::Object::Fixed;
use strict;
use vars qw($VERSION @ISA);
$VERSION = do { my @r = (q$Revision: 1.10 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; 
$|=1;
=head1 DESCRIPTION
Perlbug B<Fixed> in B<Version> class handler
For inherited methods, see L<Perlbug::Object>
=cut
use Data::Dumper;
use Perlbug::Base;
use Perlbug::Object;
@ISA = qw(Perlbug::Object); 
=head1 SYNOPSIS
        use Perlbug::Object::Fixed;
        my $o_Fixed = Perlbug::Object::Fixed->new();
        print $o_Fixed ->read('3')->format('a');
=head1 METHODS
=over 4
=item new
Create new Fixed object:
        my $o_Fixed = Perlbug::Object::Fixed->new();
=cut
sub new {
    my $proto = shift;
    my $class = ref($proto) || $proto; 
        my $o_base = (ref($_[0])) ? shift : Perlbug::Base->new;
        my $self = Perlbug::Object->new( $o_base, 
                'name'                  => 'Fixed',
                'from'                  => [qw(bug)],
                'match_name'    => '([\d+\.]+\d+)',
                'prejudicial'   => 1,
                @_,
        );
        bless($self, $class);
}
=pod
=back
=head1 AUTHOR
Richard Foley perlbug@rfi.net 2001
=cut
# 
1;