view release on metacpan or  search on metacpan

lib/AtomicParsley/Command.pm  view on Meta::CPAN

        elsif ( $intag && defined $tags{$intag} ) {
            $tags{$intag} .= "\n$line";
        }
    }

    return AtomicParsley::Command::Tags->new(%tags);
}

# Try our best to get the name of the temp file.
# Unfortunately. the temp file contains a random number,
# so this is a best guess.
sub _get_temp_file {
    my ( $self, $directories, $file ) = @_;

    # remove suffix
    $file =~ s/(\.\w+)$/-temp-/;
    my $suffix = $1;

    # search directory
    for my $tempfile ( bsd_glob("$directories*$suffix") ) {