local-lib5/lib/perl5/YAML/Loader/Base.pm

   1 package YAML::Loader::Base;
   2
   3 use strict;
   4 use warnings;
   5 use YAML::Base;
   6
   7 our $VERSION = '0.70';
   8 our @ISA     = 'YAML::Base';
   9
  10 field load_code     => 0;
  11 field stream        => '';
  12 field document      => 0;
  13 field line          => 0;
  14 field documents     => [];
  15 field lines         => [];
  16 field eos           => 0;
  17 field done          => 0;
  18 field anchor2node   => {};
  19 field level         => 0;
  20 field offset        => [];
  21 field preface       => '';
  22 field content       => '';
  23 field indent        => 0;
  24 field major_version => 0;
  25 field minor_version => 0;
  26 field inline        => '';
  27
  28 sub set_global_options {
  29     my $self = shift;
  30     $self->load_code($YAML::LoadCode || $YAML::UseCode)
  31       if defined $YAML::LoadCode or defined $YAML::UseCode;
  32 }
  33
  34 sub load {
  35     die 'load() not implemented in this class.';
  36 }
  37
  38 1;
  39
  40 __END__
  41
  42 =head1 NAME
  43
  44 YAML::Loader::Base - Base class for YAML Loader classes
  45
  46 =head1 SYNOPSIS
  47
  48     package YAML::Loader::Something;
  49     use YAML::Loader::Base -base;
  50
  51 =head1 DESCRIPTION
  52
  53 YAML::Loader::Base is a base class for creating YAML loader classes.
  54
  55 =head1 AUTHOR
  56
  57 Ingy döt Net <ingy@cpan.org>
  58
  59 =head1 COPYRIGHT
  60
  61 Copyright (c) 2006. Ingy döt Net. All rights reserved.
  62
  63 This program is free software; you can redistribute it and/or modify it
  64 under the same terms as Perl itself.
  65
  66 See L<http://www.perl.com/perl/misc/Artistic.html>
  67
  68 =cut