|
Lines 26-32
sub BUILD {
Link Here
|
| 26 |
my $file; |
26 |
my $file; |
| 27 |
if ( $filepath =~ qr/\.xml$|\.xsl$|\.xslt$/i ) { |
27 |
if ( $filepath =~ qr/\.xml$|\.xsl$|\.xslt$/i ) { |
| 28 |
$file = QohA::File::XML->new(path => $filepath); |
28 |
$file = QohA::File::XML->new(path => $filepath); |
| 29 |
} elsif ( $filepath =~ qr/\.pl$|\.pm$|\.t$/i ) { |
29 |
} elsif ( $filepath =~ qr/\.pl$|\.pm$|\.t$|svc|unapi$/i ) { |
| 30 |
$file = QohA::File::Perl->new(path => $filepath); |
30 |
$file = QohA::File::Perl->new(path => $filepath); |
| 31 |
} elsif ( $filepath =~ qr/\.tt$|\.inc$/i ) { |
31 |
} elsif ( $filepath =~ qr/\.tt$|\.inc$/i ) { |
| 32 |
$file = QohA::File::Template->new(path => $filepath); |
32 |
$file = QohA::File::Template->new(path => $filepath); |
| 33 |
- |
|
|