Data-Header-Fields

 view release on metacpan or  search on metacpan

lib/Data/Header/Fields.pm  view on Meta::CPAN

270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
        my $lines = $self->_lines;
        push(@$lines, $line);
 
        return $self;
}
 
1;
 
package Data::Header::Fields::Value;
 
use Scalar::Util 'weaken', 'isweak';
 
use overload
        '""' => \&as_string,
        'cmp' => \&cmp,
;
 
sub new {
        my $class = shift;
        my $value = shift;
        

lib/Data/Header/Fields.pm  view on Meta::CPAN

292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
                if (not ref $value) {
                        $value = { 'value' => $value };
                }
        }
        else {
                $value = { $value, @_ };
        }
         
        my $self = bless { 'parent' => $class->_default_parent, %{$value} }, $class;
         
        weaken($self->{'parent'})
                if (ref($self->{'parent'}) && !isweak($self->{'parent'}));
         
        return $self;
}
 
sub as_string {
        my $self   = shift;
 
        # remove folding
        my $line = $self->{value};

lib/Data/Header/Fields.pm  view on Meta::CPAN

351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
                $self->{'value'} = shift;
                $self->parent->line_changed;
        }
         
        return $self->{'value'};
}
1;
 
package Data::Header::Fields::Line;
 
use Scalar::Util 'blessed', 'weaken', 'isweak';
 
use overload
        '""' => \&as_string,
        'cmp' => \&cmp,
;
 
sub new {
        my $class = shift;
        my $line  = shift;
        my @args  = @_;

lib/Data/Header/Fields.pm  view on Meta::CPAN

394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
                        $line->{'original_line'} = $line_string;
                        my ($key, $value) = split(/:/, $line_string, 2);
                        $line->{'key'}    = $key;
                        $line->{'value'}  = Data::Header::Fields::Value->new(
                                'value'         => $value,
                                'parent'        => $line,
                        );
                }
        }
         
        weaken($line->{'parent'})
                if (ref($line->{'parent'}) && !isweak($line->{'parent'}));
         
        return bless $line, $class;
}
 
sub key {
        my $self   = shift;
        $self->{'key'} = shift
                if @_;