modules/override/YAML/Loader/Base.pm

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