Lines Matching refs:bulk

1380     my @bulk;
1420             if ( exists( $opts{ -bulk } ) ) {
1421                 ${ $opts{ -bulk } } = $handle->getline();
1423                 $bulk[ 0 ] = $handle->getline();
1429             @bulk = $handle->getlines();
1432                 if ( substr( $bulk[ 0 ], 0, 1 ) eq "\x{FEFF}" ) {
1433                     substr( $bulk[ 0 ], 0, 1 ) = "";
1440         if ( $opts{ -binary } and exists( $opts{ -bulk } ) ) {
1441             ${ $opts{ -bulk } } = "";
1445         if ( exists( $opts{ -bulk } ) ) {
1448             return $bulk[ 0 ];
1451         if ( ( @bulk > 0 ) and ( substr( $bulk[ -1 ], -1, 1 ) ne "\n" ) ) {
1452             $bulk[ -1 ] .= "\n";
1455             map( $_ =~ s/\s+\n\z/\n/, @bulk );
1458             chomp( @bulk );
1461             return @bulk;
1463             return join( "", @bulk );
1524     my $bulk = shift( @_ );  # The text to write. Can be reference to array or scalar.
1549     if ( ref( $bulk ) eq "" ) {
1550         if ( defined( $bulk ) ) {
1551             $handle->print( $bulk );
1552             if ( not $opts{ -binary } and ( substr( $bulk, -1 ) ne "\n" ) ) {
1556     } elsif ( ref( $bulk ) eq "SCALAR" ) {
1557         if ( defined( $$bulk ) ) {
1558             $handle->print( $$bulk );
1559             if ( not $opts{ -binary } and ( substr( $$bulk, -1 ) ne "\n" ) ) {
1563     } elsif ( ref( $bulk ) eq "ARRAY" ) {
1564         foreach my $line ( @$bulk ) {