++ed by:
ADAMJS

1 PAUSE user(s)

刘刊

NAME

Vulcan::File

SYNOPSIS

SYNOPSIS

 my $file = Vulcan::File->new( '/etc/passwd' );

 $file->munge( regex => qr/^foo\b/, length => 1, lazy => 1 )->commit();

METHODS

munge( %param )

 seek: 'set' or 'end'
 offset: number of lines from seek position
 length: number of lines to remove
 regex: a regular expression
 lazy: default to end of file if regex match failed
 line: a set of lines

commit( %param )

 path: alternative path to commit
 backup: back up original file