view release on metacpan or  search on metacpan

Meta/Pdmt/Listen.pm  view on Meta::CPAN

	bless($self,$class);
	return($self);
}

sub listen($) {
	my($self)=@_;
	Meta::Utils::Output::print("in here\n");
	$self->run();
}

sub cb($) {
	my($self)=@_;
	$self->quit();
}

sub TEST($) {
	my($context)=@_;
	return(1);
}

1;

Meta/Utils/File/Move.pm  view on Meta::CPAN

our($VERSION,@ISA);
$VERSION="0.32";
@ISA=qw();

#sub mv($$);
#sub mv_noov($$);
#sub TEST($);

#__DATA__

sub mv($$) {
	my($fil1,$fil2)=@_;
	if(!File::Copy::move($fil1,$fil2)) {
		throw Meta::Error::Simple("unable to move [".$fil1."] to [".$fil2."]");
	}
}

sub mv_noov($$) {
	my($fil1,$fil2)=@_;
	if(-f $fil2) {
		throw Meta::Error::Simple("file [".$fil2."] exists");

Meta/Utils/File/Remove.pm  view on Meta::CPAN

#sub rmall($);
#sub rmrmdir($);
#sub rmrecursive($);
#sub rmhash($);
#sub rmlist($);
#sub rmmult($);
#sub TEST($);

#__DATA__

sub rm($) {
	my($file)=@_;
	if(!-f $file) {
		throw Meta::Error::FileNotFound($file);
	}
	my($resu)=CORE::unlink($file);
	if($resu!=1) {
		throw Meta::Error::Simple("unable to remove [".$file."]");
	}
}