Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision c510d88b

Von Sven Schöling vor etwa 15 Jahren hinzugefügt

und die restlichen .pm Module.

Unterschiede anzeigen:

SL/DATEV/KNEFile.pm
1 1 
package SL::DATEV::KNEFile;
2 2 

  		




  
  3
  
    
use strict;


  		




  
  4
  
    

  		




  3
  5
  
    
sub new {


  		




  4
  6
  
    
  my $type = shift;


  		




  5
  7
  
    
  my $self = {};


  		




  ......




  69
  71
  
    
  my $self   = shift;


  		




  70
  72
  
    
  my $amount = shift;


  		




  71
  73
  
    
  my $width  = shift;


  		




  
  74
  
    
  our $stellen;


  		




  72
  75
  
    

  		




  73
  76
  
    
  $amount =~ s/-//;


  		




  74
  77
  
    
  my ($places, $decimal_places) = split m/\./, "$amount";


  		












Auch abrufbar als:  Unified diff