umltools/StructureAlterer/Handlers.pm

package StructureAlterer::Handlers;

use strict;
use warnings;

use UML::Utils;

#-----------------------------------
# generic_nuller

sub generic_nuller {
  my $filename = shift;
  my $cmd;
  if ( -f $filename ) {
    $cmd="> $filename";
    #`$cmd`;
    print "ccc: ", $cmd, "\n";
  }
  if ( -d $filename ) {
    my $dirlist = UML::Utils::GetDirList($filename);
    my @dir = split("\n", $dirlist);
    foreach (@dir) {
      $cmd = '';
      if (-f) { $cmd = $_; }
      print $cmd, "\n";
    }
  }
}

1;
1	package StructureAlterer::Handlers;
2
3	use strict;
4	use warnings;
5
6	use UML::Utils;
7
8	#-----------------------------------
9	# generic_nuller
10
11	sub generic_nuller {
12	my $filename = shift;
13	my $cmd;
14	if ( -f $filename ) {
15	$cmd="> $filename";
16	#`$cmd`;
17	print "ccc: ", $cmd, "\n";
18	}
19	if ( -d $filename ) {
20	my $dirlist = UML::Utils::GetDirList($filename);
21	my @dir = split("\n", $dirlist);
22	foreach (@dir) {
23	$cmd = '';
24	if (-f) { $cmd = $_; }
25	print $cmd, "\n";
26	}
27	}
28	}
29
30	1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26