Changeset 164


Ignore:
Timestamp:
12/19/05 15:38:58 (18 years ago)
Author:
thauvin
Message:
  • split class to avoid loop and mistake
Location:
trunk/soft/ObsData/ObsData
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/soft/ObsData/ObsData/Archive.pm

    • Property cvs2svn:cvs-rev changed from 1.14 to 1.15
    r163 r164  
    7777} 
    7878 
     79### Global functions 
     80 
     81sub error { 
     82    return $error->{error}; 
     83} 
     84 
     85sub seterror { 
     86    my ($package, $filename, $line) = caller; 
     87    $error = { 
     88        'package' => $package, 
     89        'filename' => $filename, 
     90        'line' => $line, 
     91        'error' => $_[1] || $_[0], 
     92    }; 
     93} 
     94 
     95package ObsData::Archive::template; 
     96 
     97our @ISA = qw(ObsData::Archive); 
     98 
     99sub new { 
     100    my ($class, $o) = @_; 
     101    bless($o, $class); 
     102} 
     103 
    79104sub DESTROY { 
    80105    my ($self) = @_; 
    … …  
    91116    seterror("extract not implement in class " . ref($self)); 
    92117    return; 
    93 } 
    94  
    95 ### Global functions 
    96  
    97 sub error { 
    98     return $error->{error}; 
    99 } 
    100  
    101 sub seterror { 
    102     my ($package, $filename, $line) = caller; 
    103     $error = { 
    104         'package' => $package, 
    105         'filename' => $filename, 
    106         'line' => $line, 
    107         'error' => $_[1] || $_[0], 
    108     }; 
    109118} 
    110119 

  • trunk/soft/ObsData/ObsData/Archive/Compressed.pm

    • Property cvs2svn:cvs-rev changed from 1.8 to 1.9
    r162 r164  
    99use ObsData::Archive; 
    1010 
    11 our @ISA = qw(ObsData::Archive); 
     11our @ISA = qw(ObsData::Archive::template); 
    1212 
    1313sub new { 

  • trunk/soft/ObsData/ObsData/Archive/FlatFile.pm

    • Property cvs2svn:cvs-rev changed from 1.2 to 1.3
    r162 r164  
    99use ObsData::Archive; 
    1010 
    11 our @ISA = qw(ObsData::Archive); 
     11our @ISA = qw(ObsData::Archive::template); 
    1212 
    1313sub new { 

  • trunk/soft/ObsData/ObsData/Archive/Rar.pm

    • Property cvs2svn:cvs-rev changed from 1.3 to 1.4
    r162 r164  
    99use ObsData::Archive; 
    1010 
    11 our @ISA = qw(ObsData::Archive); 
     11our @ISA = qw(ObsData::Archive::template); 
    1212 
    1313sub new { 

  • trunk/soft/ObsData/ObsData/Archive/Tar.pm

    • Property cvs2svn:cvs-rev changed from 1.6 to 1.7
    r162 r164  
    1010use ObsData::Archive; 
    1111 
    12 our @ISA = qw(ObsData::Archive); 
     12our @ISA = qw(ObsData::Archive::template); 
    1313 
    1414sub new { 

  • trunk/soft/ObsData/ObsData/Archive/Zip.pm

    • Property cvs2svn:cvs-rev changed from 1.3 to 1.4
    r162 r164  
    99use ObsData::Archive; 
    1010 
    11 our @ISA = qw(ObsData::Archive); 
     11our @ISA = qw(ObsData::Archive::template); 
    1212 
    1313sub new { 
Note: See TracChangeset for help on using the changeset viewer.