diff options
Diffstat (limited to 'Data-YAML-0.0.6')
32 files changed, 0 insertions, 4258 deletions
diff --git a/Data-YAML-0.0.6/Changes b/Data-YAML-0.0.6/Changes deleted file mode 100644 index 7dd53ea..0000000 --- a/Data-YAML-0.0.6/Changes +++ /dev/null @@ -1,14 +0,0 @@ -Revision history for Data-YAML - -0.0.3 2007-03-17 - - Initial release. - -0.0.4 2007-03-17 - - Added tests for input / output modes - - Added the tests to MANIFEST. D'oh. - -0.0.5 2007-03-20 - -0.0.6 2009-03-07 - - Fix ESCAPE_CHAR regex. Refs #31804. - diff --git a/Data-YAML-0.0.6/MANIFEST b/Data-YAML-0.0.6/MANIFEST deleted file mode 100644 index cd73769..0000000 --- a/Data-YAML-0.0.6/MANIFEST +++ /dev/null @@ -1,16 +0,0 @@ -Changes -lib/Data/YAML.pm -lib/Data/YAML/Reader.pm -lib/Data/YAML/Writer.pm -Makefile.PL -MANIFEST -README -t/00.load.t -t/10-input.t -t/20-reader.t -t/30-output.t -t/40-writer.t -t/pod-coverage.t -t/pod.t -META.yml Module meta-data (added by MakeMaker) -SIGNATURE Public-key signature (added by MakeMaker) diff --git a/Data-YAML-0.0.6/META.yml b/Data-YAML-0.0.6/META.yml deleted file mode 100644 index de934af..0000000 --- a/Data-YAML-0.0.6/META.yml +++ /dev/null @@ -1,21 +0,0 @@ ---- #YAML:1.0 -name: Data-YAML -version: 0.0.6 -abstract: Easy YAML serialisation of Perl data structures -author: - - Andy Armstrong <andy@hexten.net> -license: perl -distribution_type: module -configure_requires: - ExtUtils::MakeMaker: 0 -requires: - Test::More: 0 - version: 0 -no_index: - directory: - - t - - inc -generated_by: ExtUtils::MakeMaker version 6.48 -meta-spec: - url: http://module-build.sourceforge.net/META-spec-v1.4.html - version: 1.4 diff --git a/Data-YAML-0.0.6/Makefile b/Data-YAML-0.0.6/Makefile deleted file mode 100644 index 2364db0..0000000 --- a/Data-YAML-0.0.6/Makefile +++ /dev/null @@ -1,833 +0,0 @@ -# This Makefile is for the Data::YAML extension to perl. -# -# It was generated automatically by MakeMaker version -# 6.55_02 (Revision: 65502) from the contents of -# Makefile.PL. Don't edit this file, edit Makefile.PL instead. -# -# ANY CHANGES MADE HERE WILL BE LOST! -# -# MakeMaker ARGV: () -# - -# MakeMaker Parameters: - -# ABSTRACT_FROM => q[lib/Data/YAML.pm] -# AUTHOR => q[Andy Armstrong <andy@hexten.net>] -# BUILD_REQUIRES => { } -# LICENSE => q[perl] -# NAME => q[Data::YAML] -# PL_FILES => { } -# PREREQ_PM => { Test::More=>q[0], version=>q[0] } -# SIGN => q[1] -# VERSION_FROM => q[lib/Data/YAML.pm] -# clean => { FILES=>q[Data-YAML-*] } -# dist => { COMPRESS=>q[gzip -9f], SUFFIX=>q[gz] } - -# --- MakeMaker post_initialize section: - - -# --- MakeMaker const_config section: - -# These definitions are from config.sh (via /usr/lib64/perl5/Config.pm). -# They may have been overridden via Makefile.PL or on the command line. -AR = ar -CC = gcc -CCCDLFLAGS = -fPIC -CCDLFLAGS = -Wl,-E -Wl,-rpath,/usr/lib64/perl5/CORE -DLEXT = so -DLSRC = dl_dlopen.xs -EXE_EXT = -FULL_AR = /usr/bin/ar -LD = gcc -LDDLFLAGS = -shared -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m64 -mtune=generic -LDFLAGS = -fstack-protector -LIBC = -LIB_EXT = .a -OBJ_EXT = .o -OSNAME = linux -OSVERS = 2.6.18-274.3.1.el5 -RANLIB = : -SITELIBEXP = /usr/local/share/perl5 -SITEARCHEXP = /usr/local/lib64/perl5 -SO = so -VENDORARCHEXP = /usr/lib64/perl5/vendor_perl -VENDORLIBEXP = /usr/share/perl5/vendor_perl - - -# --- MakeMaker constants section: -AR_STATIC_ARGS = cr -DIRFILESEP = / -DFSEP = $(DIRFILESEP) -NAME = Data::YAML -NAME_SYM = Data_YAML -VERSION = 0.0.6 -VERSION_MACRO = VERSION -VERSION_SYM = 0_0_6 -DEFINE_VERSION = -D$(VERSION_MACRO)=\"$(VERSION)\" -XS_VERSION = 0.0.6 -XS_VERSION_MACRO = XS_VERSION -XS_DEFINE_VERSION = -D$(XS_VERSION_MACRO)=\"$(XS_VERSION)\" -INST_ARCHLIB = blib/arch -INST_SCRIPT = blib/script -INST_BIN = blib/bin -INST_LIB = blib/lib -INST_MAN1DIR = blib/man1 -INST_MAN3DIR = blib/man3 -MAN1EXT = 1 -MAN3EXT = 3pm -INSTALLDIRS = site -DESTDIR = -PREFIX = $(SITEPREFIX) -PERLPREFIX = /usr -SITEPREFIX = /usr/local -VENDORPREFIX = /usr -INSTALLPRIVLIB = /usr/share/perl5 -DESTINSTALLPRIVLIB = $(DESTDIR)$(INSTALLPRIVLIB) -INSTALLSITELIB = /usr/local/share/perl5 -DESTINSTALLSITELIB = $(DESTDIR)$(INSTALLSITELIB) -INSTALLVENDORLIB = /usr/share/perl5/vendor_perl -DESTINSTALLVENDORLIB = $(DESTDIR)$(INSTALLVENDORLIB) -INSTALLARCHLIB = /usr/lib64/perl5 -DESTINSTALLARCHLIB = $(DESTDIR)$(INSTALLARCHLIB) -INSTALLSITEARCH = /usr/local/lib64/perl5 -DESTINSTALLSITEARCH = $(DESTDIR)$(INSTALLSITEARCH) -INSTALLVENDORARCH = /usr/lib64/perl5/vendor_perl -DESTINSTALLVENDORARCH = $(DESTDIR)$(INSTALLVENDORARCH) -INSTALLBIN = /usr/bin -DESTINSTALLBIN = $(DESTDIR)$(INSTALLBIN) -INSTALLSITEBIN = /usr/local/bin -DESTINSTALLSITEBIN = $(DESTDIR)$(INSTALLSITEBIN) -INSTALLVENDORBIN = /usr/bin -DESTINSTALLVENDORBIN = $(DESTDIR)$(INSTALLVENDORBIN) -INSTALLSCRIPT = /usr/bin -DESTINSTALLSCRIPT = $(DESTDIR)$(INSTALLSCRIPT) -INSTALLSITESCRIPT = /usr/local/bin -DESTINSTALLSITESCRIPT = $(DESTDIR)$(INSTALLSITESCRIPT) -INSTALLVENDORSCRIPT = /usr/bin -DESTINSTALLVENDORSCRIPT = $(DESTDIR)$(INSTALLVENDORSCRIPT) -INSTALLMAN1DIR = /usr/share/man/man1 -DESTINSTALLMAN1DIR = $(DESTDIR)$(INSTALLMAN1DIR) -INSTALLSITEMAN1DIR = /usr/local/share/man/man1 -DESTINSTALLSITEMAN1DIR = $(DESTDIR)$(INSTALLSITEMAN1DIR) -INSTALLVENDORMAN1DIR = /usr/share/man/man1 -DESTINSTALLVENDORMAN1DIR = $(DESTDIR)$(INSTALLVENDORMAN1DIR) -INSTALLMAN3DIR = /usr/share/man/man3 -DESTINSTALLMAN3DIR = $(DESTDIR)$(INSTALLMAN3DIR) -INSTALLSITEMAN3DIR = /usr/local/share/man/man3 -DESTINSTALLSITEMAN3DIR = $(DESTDIR)$(INSTALLSITEMAN3DIR) -INSTALLVENDORMAN3DIR = /usr/share/man/man3 -DESTINSTALLVENDORMAN3DIR = $(DESTDIR)$(INSTALLVENDORMAN3DIR) -PERL_LIB = /usr/share/perl5 -PERL_ARCHLIB = /usr/lib64/perl5 -LIBPERL_A = libperl.a -FIRST_MAKEFILE = Makefile -MAKEFILE_OLD = Makefile.old -MAKE_APERL_FILE = Makefile.aperl -PERLMAINCC = $(CC) -PERL_INC = /usr/lib64/perl5/CORE -PERL = /usr/bin/perl -FULLPERL = /usr/bin/perl -ABSPERL = $(PERL) -PERLRUN = $(PERL) -FULLPERLRUN = $(FULLPERL) -ABSPERLRUN = $(ABSPERL) -PERLRUNINST = $(PERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" -FULLPERLRUNINST = $(FULLPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" -ABSPERLRUNINST = $(ABSPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" -PERL_CORE = 0 -PERM_DIR = 755 -PERM_RW = 644 -PERM_RWX = 755 - -MAKEMAKER = /usr/share/perl5/ExtUtils/MakeMaker.pm -MM_VERSION = 6.55_02 -MM_REVISION = 65502 - -# FULLEXT = Pathname for extension directory (eg Foo/Bar/Oracle). -# BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT. (eg Oracle) -# PARENT_NAME = NAME without BASEEXT and no trailing :: (eg Foo::Bar) -# DLBASE = Basename part of dynamic library. May be just equal BASEEXT. -MAKE = make -FULLEXT = Data/YAML -BASEEXT = YAML -PARENT_NAME = Data -DLBASE = $(BASEEXT) -VERSION_FROM = lib/Data/YAML.pm -OBJECT = -LDFROM = $(OBJECT) -LINKTYPE = dynamic -BOOTDEP = - -# Handy lists of source code files: -XS_FILES = -C_FILES = -O_FILES = -H_FILES = -MAN1PODS = -MAN3PODS = lib/Data/YAML.pm \ - lib/Data/YAML/Reader.pm \ - lib/Data/YAML/Writer.pm - -# Where is the Config information that we are using/depend on -CONFIGDEP = $(PERL_ARCHLIB)$(DFSEP)Config.pm $(PERL_INC)$(DFSEP)config.h - -# Where to build things -INST_LIBDIR = $(INST_LIB)/Data -INST_ARCHLIBDIR = $(INST_ARCHLIB)/Data - -INST_AUTODIR = $(INST_LIB)/auto/$(FULLEXT) -INST_ARCHAUTODIR = $(INST_ARCHLIB)/auto/$(FULLEXT) - -INST_STATIC = -INST_DYNAMIC = -INST_BOOT = - -# Extra linker info -EXPORT_LIST = -PERL_ARCHIVE = -PERL_ARCHIVE_AFTER = - - -TO_INST_PM = lib/Data/YAML.pm \ - lib/Data/YAML/Reader.pm \ - lib/Data/YAML/Writer.pm - -PM_TO_BLIB = lib/Data/YAML/Reader.pm \ - blib/lib/Data/YAML/Reader.pm \ - lib/Data/YAML.pm \ - blib/lib/Data/YAML.pm \ - lib/Data/YAML/Writer.pm \ - blib/lib/Data/YAML/Writer.pm - - -# --- MakeMaker platform_constants section: -MM_Unix_VERSION = 6.55_02 -PERL_MALLOC_DEF = -DPERL_EXTMALLOC_DEF -Dmalloc=Perl_malloc -Dfree=Perl_mfree -Drealloc=Perl_realloc -Dcalloc=Perl_calloc - - -# --- MakeMaker tool_autosplit section: -# Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto -AUTOSPLITFILE = $(ABSPERLRUN) -e 'use AutoSplit; autosplit($$ARGV[0], $$ARGV[1], 0, 1, 1)' -- - - - -# --- MakeMaker tool_xsubpp section: - - -# --- MakeMaker tools_other section: -SHELL = /bin/sh -CHMOD = chmod -CP = cp -MV = mv -NOOP = $(TRUE) -NOECHO = @ -RM_F = rm -f -RM_RF = rm -rf -TEST_F = test -f -TOUCH = touch -UMASK_NULL = umask 0 -DEV_NULL = > /dev/null 2>&1 -MKPATH = $(ABSPERLRUN) -MExtUtils::Command -e 'mkpath' -- -EQUALIZE_TIMESTAMP = $(ABSPERLRUN) -MExtUtils::Command -e 'eqtime' -- -FALSE = false -TRUE = true -ECHO = echo -ECHO_N = echo -n -UNINST = 0 -VERBINST = 0 -MOD_INSTALL = $(ABSPERLRUN) -MExtUtils::Install -e 'install([ from_to => {@ARGV}, verbose => '\''$(VERBINST)'\'', uninstall_shadows => '\''$(UNINST)'\'', dir_mode => '\''$(PERM_DIR)'\'' ]);' -- -DOC_INSTALL = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'perllocal_install' -- -UNINSTALL = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'uninstall' -- -WARN_IF_OLD_PACKLIST = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'warn_if_old_packlist' -- -MACROSTART = -MACROEND = -USEMAKEFILE = -f -FIXIN = $(ABSPERLRUN) -MExtUtils::MY -e 'MY->fixin(shift)' -- - - -# --- MakeMaker makemakerdflt section: -makemakerdflt : all - $(NOECHO) $(NOOP) - - -# --- MakeMaker dist section: -TAR = tar -TARFLAGS = cvf -ZIP = zip -ZIPFLAGS = -r -COMPRESS = gzip -9f -SUFFIX = gz -SHAR = shar -PREOP = $(NOECHO) $(NOOP) -POSTOP = $(NOECHO) $(NOOP) -TO_UNIX = $(NOECHO) $(NOOP) -CI = ci -u -RCS_LABEL = rcs -Nv$(VERSION_SYM): -q -DIST_CP = best -DIST_DEFAULT = tardist -DISTNAME = Data-YAML -DISTVNAME = Data-YAML-0.0.6 - - -# --- MakeMaker macro section: - - -# --- MakeMaker depend section: - - -# --- MakeMaker cflags section: - - -# --- MakeMaker const_loadlibs section: - - -# --- MakeMaker const_cccmd section: - - -# --- MakeMaker post_constants section: - - -# --- MakeMaker pasthru section: - -PASTHRU = LIBPERL_A="$(LIBPERL_A)"\ - LINKTYPE="$(LINKTYPE)"\ - PREFIX="$(PREFIX)" - - -# --- MakeMaker special_targets section: -.SUFFIXES : .xs .c .C .cpp .i .s .cxx .cc $(OBJ_EXT) - -.PHONY: all config static dynamic test linkext manifest blibdirs clean realclean disttest distdir - - - -# --- MakeMaker c_o section: - - -# --- MakeMaker xs_c section: - - -# --- MakeMaker xs_o section: - - -# --- MakeMaker top_targets section: -all :: pure_all manifypods - $(NOECHO) $(NOOP) - - -pure_all :: config pm_to_blib subdirs linkext - $(NOECHO) $(NOOP) - -subdirs :: $(MYEXTLIB) - $(NOECHO) $(NOOP) - -config :: $(FIRST_MAKEFILE) blibdirs - $(NOECHO) $(NOOP) - -help : - perldoc ExtUtils::MakeMaker - - -# --- MakeMaker blibdirs section: -blibdirs : $(INST_LIBDIR)$(DFSEP).exists $(INST_ARCHLIB)$(DFSEP).exists $(INST_AUTODIR)$(DFSEP).exists $(INST_ARCHAUTODIR)$(DFSEP).exists $(INST_BIN)$(DFSEP).exists $(INST_SCRIPT)$(DFSEP).exists $(INST_MAN1DIR)$(DFSEP).exists $(INST_MAN3DIR)$(DFSEP).exists - $(NOECHO) $(NOOP) - -# Backwards compat with 6.18 through 6.25 -blibdirs.ts : blibdirs - $(NOECHO) $(NOOP) - -$(INST_LIBDIR)$(DFSEP).exists :: Makefile.PL - $(NOECHO) $(MKPATH) $(INST_LIBDIR) - $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_LIBDIR) - $(NOECHO) $(TOUCH) $(INST_LIBDIR)$(DFSEP).exists - -$(INST_ARCHLIB)$(DFSEP).exists :: Makefile.PL - $(NOECHO) $(MKPATH) $(INST_ARCHLIB) - $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_ARCHLIB) - $(NOECHO) $(TOUCH) $(INST_ARCHLIB)$(DFSEP).exists - -$(INST_AUTODIR)$(DFSEP).exists :: Makefile.PL - $(NOECHO) $(MKPATH) $(INST_AUTODIR) - $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_AUTODIR) - $(NOECHO) $(TOUCH) $(INST_AUTODIR)$(DFSEP).exists - -$(INST_ARCHAUTODIR)$(DFSEP).exists :: Makefile.PL - $(NOECHO) $(MKPATH) $(INST_ARCHAUTODIR) - $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_ARCHAUTODIR) - $(NOECHO) $(TOUCH) $(INST_ARCHAUTODIR)$(DFSEP).exists - -$(INST_BIN)$(DFSEP).exists :: Makefile.PL - $(NOECHO) $(MKPATH) $(INST_BIN) - $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_BIN) - $(NOECHO) $(TOUCH) $(INST_BIN)$(DFSEP).exists - -$(INST_SCRIPT)$(DFSEP).exists :: Makefile.PL - $(NOECHO) $(MKPATH) $(INST_SCRIPT) - $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_SCRIPT) - $(NOECHO) $(TOUCH) $(INST_SCRIPT)$(DFSEP).exists - -$(INST_MAN1DIR)$(DFSEP).exists :: Makefile.PL - $(NOECHO) $(MKPATH) $(INST_MAN1DIR) - $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_MAN1DIR) - $(NOECHO) $(TOUCH) $(INST_MAN1DIR)$(DFSEP).exists - -$(INST_MAN3DIR)$(DFSEP).exists :: Makefile.PL - $(NOECHO) $(MKPATH) $(INST_MAN3DIR) - $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_MAN3DIR) - $(NOECHO) $(TOUCH) $(INST_MAN3DIR)$(DFSEP).exists - - - -# --- MakeMaker linkext section: - -linkext :: $(LINKTYPE) - $(NOECHO) $(NOOP) - - -# --- MakeMaker dlsyms section: - - -# --- MakeMaker dynamic section: - -dynamic :: $(FIRST_MAKEFILE) $(INST_DYNAMIC) $(INST_BOOT) - $(NOECHO) $(NOOP) - - -# --- MakeMaker dynamic_bs section: - -BOOTSTRAP = - - -# --- MakeMaker dynamic_lib section: - - -# --- MakeMaker static section: - -## $(INST_PM) has been moved to the all: target. -## It remains here for awhile to allow for old usage: "make static" -static :: $(FIRST_MAKEFILE) $(INST_STATIC) - $(NOECHO) $(NOOP) - - -# --- MakeMaker static_lib section: - - -# --- MakeMaker manifypods section: - -POD2MAN_EXE = $(PERLRUN) "-MExtUtils::Command::MM" -e pod2man "--" -POD2MAN = $(POD2MAN_EXE) - - -manifypods : pure_all \ - lib/Data/YAML/Reader.pm \ - lib/Data/YAML.pm \ - lib/Data/YAML/Writer.pm - $(NOECHO) $(POD2MAN) --section=3 --perm_rw=$(PERM_RW) \ - lib/Data/YAML/Reader.pm $(INST_MAN3DIR)/Data::YAML::Reader.$(MAN3EXT) \ - lib/Data/YAML.pm $(INST_MAN3DIR)/Data::YAML.$(MAN3EXT) \ - lib/Data/YAML/Writer.pm $(INST_MAN3DIR)/Data::YAML::Writer.$(MAN3EXT) - - - - -# --- MakeMaker processPL section: - - -# --- MakeMaker installbin section: - - -# --- MakeMaker subdirs section: - -# none - -# --- MakeMaker clean_subdirs section: -clean_subdirs : - $(NOECHO) $(NOOP) - - -# --- MakeMaker clean section: - -# Delete temporary files but do not touch installed files. We don't delete -# the Makefile here so a later make realclean still has a makefile to use. - -clean :: clean_subdirs - - $(RM_F) \ - *$(LIB_EXT) core \ - core.[0-9] $(INST_ARCHAUTODIR)/extralibs.all \ - core.[0-9][0-9] $(BASEEXT).bso \ - pm_to_blib.ts core.[0-9][0-9][0-9][0-9] \ - $(BASEEXT).x $(BOOTSTRAP) \ - perl$(EXE_EXT) tmon.out \ - *$(OBJ_EXT) pm_to_blib \ - $(INST_ARCHAUTODIR)/extralibs.ld blibdirs.ts \ - core.[0-9][0-9][0-9][0-9][0-9] *perl.core \ - core.*perl.*.? $(MAKE_APERL_FILE) \ - perl $(BASEEXT).def \ - core.[0-9][0-9][0-9] mon.out \ - lib$(BASEEXT).def perlmain.c \ - perl.exe so_locations \ - $(BASEEXT).exp - - $(RM_RF) \ - Data-YAML-* blib - - $(MV) $(FIRST_MAKEFILE) $(MAKEFILE_OLD) $(DEV_NULL) - - -# --- MakeMaker realclean_subdirs section: -realclean_subdirs : - $(NOECHO) $(NOOP) - - -# --- MakeMaker realclean section: -# Delete temporary files (via clean) and also delete dist files -realclean purge :: clean realclean_subdirs - - $(RM_F) \ - $(MAKEFILE_OLD) $(FIRST_MAKEFILE) - - $(RM_RF) \ - $(DISTVNAME) - - -# --- MakeMaker metafile section: -metafile : create_distdir - $(NOECHO) $(ECHO) Generating META.yml - $(NOECHO) $(ECHO) '--- #YAML:1.0' > META_new.yml - $(NOECHO) $(ECHO) 'name: Data-YAML' >> META_new.yml - $(NOECHO) $(ECHO) 'version: 0.0.6' >> META_new.yml - $(NOECHO) $(ECHO) 'abstract: Easy YAML serialisation of Perl data structures' >> META_new.yml - $(NOECHO) $(ECHO) 'author:' >> META_new.yml - $(NOECHO) $(ECHO) ' - Andy Armstrong <andy@hexten.net>' >> META_new.yml - $(NOECHO) $(ECHO) 'license: perl' >> META_new.yml - $(NOECHO) $(ECHO) 'distribution_type: module' >> META_new.yml - $(NOECHO) $(ECHO) 'configure_requires:' >> META_new.yml - $(NOECHO) $(ECHO) ' ExtUtils::MakeMaker: 0' >> META_new.yml - $(NOECHO) $(ECHO) 'build_requires:' >> META_new.yml - $(NOECHO) $(ECHO) ' ExtUtils::MakeMaker: 0' >> META_new.yml - $(NOECHO) $(ECHO) 'requires:' >> META_new.yml - $(NOECHO) $(ECHO) ' Test::More: 0' >> META_new.yml - $(NOECHO) $(ECHO) ' version: 0' >> META_new.yml - $(NOECHO) $(ECHO) 'no_index:' >> META_new.yml - $(NOECHO) $(ECHO) ' directory:' >> META_new.yml - $(NOECHO) $(ECHO) ' - t' >> META_new.yml - $(NOECHO) $(ECHO) ' - inc' >> META_new.yml - $(NOECHO) $(ECHO) 'generated_by: ExtUtils::MakeMaker version 6.55_02' >> META_new.yml - $(NOECHO) $(ECHO) 'meta-spec:' >> META_new.yml - $(NOECHO) $(ECHO) ' url: http://module-build.sourceforge.net/META-spec-v1.4.html' >> META_new.yml - $(NOECHO) $(ECHO) ' version: 1.4' >> META_new.yml - -$(NOECHO) $(MV) META_new.yml $(DISTVNAME)/META.yml - - -# --- MakeMaker signature section: -signature : - cpansign -s - - -# --- MakeMaker dist_basics section: -distclean :: realclean distcheck - $(NOECHO) $(NOOP) - -distcheck : - $(PERLRUN) "-MExtUtils::Manifest=fullcheck" -e fullcheck - -skipcheck : - $(PERLRUN) "-MExtUtils::Manifest=skipcheck" -e skipcheck - -manifest : - $(PERLRUN) "-MExtUtils::Manifest=mkmanifest" -e mkmanifest - -veryclean : realclean - $(RM_F) *~ */*~ *.orig */*.orig *.bak */*.bak *.old */*.old - - - -# --- MakeMaker dist_core section: - -dist : $(DIST_DEFAULT) $(FIRST_MAKEFILE) - $(NOECHO) $(ABSPERLRUN) -l -e 'print '\''Warning: Makefile possibly out of date with $(VERSION_FROM)'\''' \ - -e ' if -e '\''$(VERSION_FROM)'\'' and -M '\''$(VERSION_FROM)'\'' < -M '\''$(FIRST_MAKEFILE)'\'';' -- - -tardist : $(DISTVNAME).tar$(SUFFIX) - $(NOECHO) $(NOOP) - -uutardist : $(DISTVNAME).tar$(SUFFIX) - uuencode $(DISTVNAME).tar$(SUFFIX) $(DISTVNAME).tar$(SUFFIX) > $(DISTVNAME).tar$(SUFFIX)_uu - -$(DISTVNAME).tar$(SUFFIX) : distdir - $(PREOP) - $(TO_UNIX) - $(TAR) $(TARFLAGS) $(DISTVNAME).tar $(DISTVNAME) - $(RM_RF) $(DISTVNAME) - $(COMPRESS) $(DISTVNAME).tar - $(POSTOP) - -zipdist : $(DISTVNAME).zip - $(NOECHO) $(NOOP) - -$(DISTVNAME).zip : distdir - $(PREOP) - $(ZIP) $(ZIPFLAGS) $(DISTVNAME).zip $(DISTVNAME) - $(RM_RF) $(DISTVNAME) - $(POSTOP) - -shdist : distdir - $(PREOP) - $(SHAR) $(DISTVNAME) > $(DISTVNAME).shar - $(RM_RF) $(DISTVNAME) - $(POSTOP) - - -# --- MakeMaker distdir section: -create_distdir : - $(RM_RF) $(DISTVNAME) - $(PERLRUN) "-MExtUtils::Manifest=manicopy,maniread" \ - -e "manicopy(maniread(),'$(DISTVNAME)', '$(DIST_CP)');" - -distdir : create_distdir distmeta distsignature - $(NOECHO) $(NOOP) - - - -# --- MakeMaker dist_test section: -disttest : distdir - cd $(DISTVNAME) && $(ABSPERLRUN) Makefile.PL - cd $(DISTVNAME) && $(MAKE) $(PASTHRU) - cd $(DISTVNAME) && $(MAKE) test $(PASTHRU) - - - -# --- MakeMaker dist_ci section: - -ci : - $(PERLRUN) "-MExtUtils::Manifest=maniread" \ - -e "@all = keys %{ maniread() };" \ - -e "print(qq{Executing $(CI) @all\n}); system(qq{$(CI) @all});" \ - -e "print(qq{Executing $(RCS_LABEL) ...\n}); system(qq{$(RCS_LABEL) @all});" - - -# --- MakeMaker distmeta section: -distmeta : create_distdir metafile - $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'eval { maniadd({q{META.yml} => q{Module meta-data (added by MakeMaker)}}) } ' \ - -e ' or print "Could not add META.yml to MANIFEST: $${'\''@'\''}\n"' -- - - - -# --- MakeMaker distsignature section: -distsignature : create_distdir - $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'eval { maniadd({q{SIGNATURE} => q{Public-key signature (added by MakeMaker)}}) } ' \ - -e ' or print "Could not add SIGNATURE to MANIFEST: $${'\''@'\''}\n"' -- - $(NOECHO) cd $(DISTVNAME) && $(TOUCH) SIGNATURE - cd $(DISTVNAME) && cpansign -s - - - -# --- MakeMaker install section: - -install :: pure_install doc_install - $(NOECHO) $(NOOP) - -install_perl :: pure_perl_install doc_perl_install - $(NOECHO) $(NOOP) - -install_site :: pure_site_install doc_site_install - $(NOECHO) $(NOOP) - -install_vendor :: pure_vendor_install doc_vendor_install - $(NOECHO) $(NOOP) - -pure_install :: pure_$(INSTALLDIRS)_install - $(NOECHO) $(NOOP) - -doc_install :: doc_$(INSTALLDIRS)_install - $(NOECHO) $(NOOP) - -pure__install : pure_site_install - $(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site - -doc__install : doc_site_install - $(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site - -pure_perl_install :: all - $(NOECHO) $(MOD_INSTALL) \ - read $(PERL_ARCHLIB)/auto/$(FULLEXT)/.packlist \ - write $(DESTINSTALLARCHLIB)/auto/$(FULLEXT)/.packlist \ - $(INST_LIB) $(DESTINSTALLPRIVLIB) \ - $(INST_ARCHLIB) $(DESTINSTALLARCHLIB) \ - $(INST_BIN) $(DESTINSTALLBIN) \ - $(INST_SCRIPT) $(DESTINSTALLSCRIPT) \ - $(INST_MAN1DIR) $(DESTINSTALLMAN1DIR) \ - $(INST_MAN3DIR) $(DESTINSTALLMAN3DIR) - $(NOECHO) $(WARN_IF_OLD_PACKLIST) \ - $(SITEARCHEXP)/auto/$(FULLEXT) - - -pure_site_install :: all - $(NOECHO) $(MOD_INSTALL) \ - read $(SITEARCHEXP)/auto/$(FULLEXT)/.packlist \ - write $(DESTINSTALLSITEARCH)/auto/$(FULLEXT)/.packlist \ - $(INST_LIB) $(DESTINSTALLSITELIB) \ - $(INST_ARCHLIB) $(DESTINSTALLSITEARCH) \ - $(INST_BIN) $(DESTINSTALLSITEBIN) \ - $(INST_SCRIPT) $(DESTINSTALLSITESCRIPT) \ - $(INST_MAN1DIR) $(DESTINSTALLSITEMAN1DIR) \ - $(INST_MAN3DIR) $(DESTINSTALLSITEMAN3DIR) - $(NOECHO) $(WARN_IF_OLD_PACKLIST) \ - $(PERL_ARCHLIB)/auto/$(FULLEXT) - -pure_vendor_install :: all - $(NOECHO) $(MOD_INSTALL) \ - read $(VENDORARCHEXP)/auto/$(FULLEXT)/.packlist \ - write $(DESTINSTALLVENDORARCH)/auto/$(FULLEXT)/.packlist \ - $(INST_LIB) $(DESTINSTALLVENDORLIB) \ - $(INST_ARCHLIB) $(DESTINSTALLVENDORARCH) \ - $(INST_BIN) $(DESTINSTALLVENDORBIN) \ - $(INST_SCRIPT) $(DESTINSTALLVENDORSCRIPT) \ - $(INST_MAN1DIR) $(DESTINSTALLVENDORMAN1DIR) \ - $(INST_MAN3DIR) $(DESTINSTALLVENDORMAN3DIR) - -doc_perl_install :: all - $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod - -$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB) - -$(NOECHO) $(DOC_INSTALL) \ - "Module" "$(NAME)" \ - "installed into" "$(INSTALLPRIVLIB)" \ - LINKTYPE "$(LINKTYPE)" \ - VERSION "$(VERSION)" \ - EXE_FILES "$(EXE_FILES)" \ - >> $(DESTINSTALLARCHLIB)/perllocal.pod - -doc_site_install :: all - $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod - -$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB) - -$(NOECHO) $(DOC_INSTALL) \ - "Module" "$(NAME)" \ - "installed into" "$(INSTALLSITELIB)" \ - LINKTYPE "$(LINKTYPE)" \ - VERSION "$(VERSION)" \ - EXE_FILES "$(EXE_FILES)" \ - >> $(DESTINSTALLARCHLIB)/perllocal.pod - -doc_vendor_install :: all - $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod - -$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB) - -$(NOECHO) $(DOC_INSTALL) \ - "Module" "$(NAME)" \ - "installed into" "$(INSTALLVENDORLIB)" \ - LINKTYPE "$(LINKTYPE)" \ - VERSION "$(VERSION)" \ - EXE_FILES "$(EXE_FILES)" \ - >> $(DESTINSTALLARCHLIB)/perllocal.pod - - -uninstall :: uninstall_from_$(INSTALLDIRS)dirs - $(NOECHO) $(NOOP) - -uninstall_from_perldirs :: - $(NOECHO) $(UNINSTALL) $(PERL_ARCHLIB)/auto/$(FULLEXT)/.packlist - -uninstall_from_sitedirs :: - $(NOECHO) $(UNINSTALL) $(SITEARCHEXP)/auto/$(FULLEXT)/.packlist - -uninstall_from_vendordirs :: - $(NOECHO) $(UNINSTALL) $(VENDORARCHEXP)/auto/$(FULLEXT)/.packlist - - -# --- MakeMaker force section: -# Phony target to force checking subdirectories. -FORCE : - $(NOECHO) $(NOOP) - - -# --- MakeMaker perldepend section: - - -# --- MakeMaker makefile section: -# We take a very conservative approach here, but it's worth it. -# We move Makefile to Makefile.old here to avoid gnu make looping. -$(FIRST_MAKEFILE) : Makefile.PL $(CONFIGDEP) - $(NOECHO) $(ECHO) "Makefile out-of-date with respect to $?" - $(NOECHO) $(ECHO) "Cleaning current config before rebuilding Makefile..." - -$(NOECHO) $(RM_F) $(MAKEFILE_OLD) - -$(NOECHO) $(MV) $(FIRST_MAKEFILE) $(MAKEFILE_OLD) - - $(MAKE) $(USEMAKEFILE) $(MAKEFILE_OLD) clean $(DEV_NULL) - $(PERLRUN) Makefile.PL - $(NOECHO) $(ECHO) "==> Your Makefile has been rebuilt. <==" - $(NOECHO) $(ECHO) "==> Please rerun the $(MAKE) command. <==" - $(FALSE) - - - -# --- MakeMaker staticmake section: - -# --- MakeMaker makeaperl section --- -MAP_TARGET = perl -FULLPERL = /usr/bin/perl - -$(MAP_TARGET) :: static $(MAKE_APERL_FILE) - $(MAKE) $(USEMAKEFILE) $(MAKE_APERL_FILE) $@ - -$(MAKE_APERL_FILE) : $(FIRST_MAKEFILE) pm_to_blib - $(NOECHO) $(ECHO) Writing \"$(MAKE_APERL_FILE)\" for this $(MAP_TARGET) - $(NOECHO) $(PERLRUNINST) \ - Makefile.PL DIR= \ - MAKEFILE=$(MAKE_APERL_FILE) LINKTYPE=static \ - MAKEAPERL=1 NORECURS=1 CCCDLFLAGS= - - -# --- MakeMaker test section: - -TEST_VERBOSE=0 -TEST_TYPE=test_$(LINKTYPE) -TEST_FILE = test.pl -TEST_FILES = t/*.t -TESTDB_SW = -d - -testdb :: testdb_$(LINKTYPE) - -test :: $(TEST_TYPE) subdirs-test - -subdirs-test :: - $(NOECHO) $(NOOP) - - -test_dynamic :: pure_all - PERL_DL_NONLAZY=1 $(FULLPERLRUN) "-MExtUtils::Command::MM" "-e" "test_harness($(TEST_VERBOSE), '$(INST_LIB)', '$(INST_ARCHLIB)')" $(TEST_FILES) - -testdb_dynamic :: pure_all - PERL_DL_NONLAZY=1 $(FULLPERLRUN) $(TESTDB_SW) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE) - -test_ : test_dynamic - -test_static :: test_dynamic -testdb_static :: testdb_dynamic - - -# --- MakeMaker ppd section: -# Creates a PPD (Perl Package Description) for a binary distribution. -ppd : - $(NOECHO) $(ECHO) '<SOFTPKG NAME="$(DISTNAME)" VERSION="0.0.6">' > $(DISTNAME).ppd - $(NOECHO) $(ECHO) ' <ABSTRACT>Easy YAML serialisation of Perl data structures</ABSTRACT>' >> $(DISTNAME).ppd - $(NOECHO) $(ECHO) ' <AUTHOR>Andy Armstrong <andy@hexten.net></AUTHOR>' >> $(DISTNAME).ppd - $(NOECHO) $(ECHO) ' <IMPLEMENTATION>' >> $(DISTNAME).ppd - $(NOECHO) $(ECHO) ' <REQUIRE NAME="Test::More" />' >> $(DISTNAME).ppd - $(NOECHO) $(ECHO) ' <REQUIRE NAME="version::" />' >> $(DISTNAME).ppd - $(NOECHO) $(ECHO) ' <ARCHITECTURE NAME="x86_64-linux-thread-multi-5.10" />' >> $(DISTNAME).ppd - $(NOECHO) $(ECHO) ' <CODEBASE HREF="" />' >> $(DISTNAME).ppd - $(NOECHO) $(ECHO) ' </IMPLEMENTATION>' >> $(DISTNAME).ppd - $(NOECHO) $(ECHO) '</SOFTPKG>' >> $(DISTNAME).ppd - - -# --- MakeMaker pm_to_blib section: - -pm_to_blib : $(FIRST_MAKEFILE) $(TO_INST_PM) - $(NOECHO) $(ABSPERLRUN) -MExtUtils::Install -e 'pm_to_blib({@ARGV}, '\''$(INST_LIB)/auto'\'', q[$(PM_FILTER)], '\''$(PERM_DIR)'\'')' -- \ - lib/Data/YAML/Reader.pm blib/lib/Data/YAML/Reader.pm \ - lib/Data/YAML.pm blib/lib/Data/YAML.pm \ - lib/Data/YAML/Writer.pm blib/lib/Data/YAML/Writer.pm - $(NOECHO) $(TOUCH) pm_to_blib - - -# --- MakeMaker selfdocument section: - - -# --- MakeMaker postamble section: - - -# End. diff --git a/Data-YAML-0.0.6/Makefile.PL b/Data-YAML-0.0.6/Makefile.PL deleted file mode 100644 index d04335d..0000000 --- a/Data-YAML-0.0.6/Makefile.PL +++ /dev/null @@ -1,22 +0,0 @@ -use strict; -use warnings; -use ExtUtils::MakeMaker; - -eval 'use ExtUtils::MakeMaker::Coverage'; -warn "Optional ExtUtils::MakeMaker::Coverage not available\n" if $@; - -WriteMakefile( - ( MM->can( 'signature_target' ) ? ( SIGN => 1 ) : () ), - NAME => 'Data::YAML', - AUTHOR => 'Andy Armstrong <andy@hexten.net>', - LICENSE => 'perl', - VERSION_FROM => 'lib/Data/YAML.pm', - ABSTRACT_FROM => 'lib/Data/YAML.pm', - PL_FILES => {}, - PREREQ_PM => { - 'Test::More' => 0, - 'version' => 0, - }, - dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', }, - clean => { FILES => 'Data-YAML-*' }, -); diff --git a/Data-YAML-0.0.6/README b/Data-YAML-0.0.6/README deleted file mode 100644 index 21ce3a9..0000000 --- a/Data-YAML-0.0.6/README +++ /dev/null @@ -1,22 +0,0 @@ -Data-YAML version 0.0.6 - -INSTALLATION - -To install this module, run the following commands: - - perl Makefile.PL - make - make test - make install - - -DEPENDENCIES - -None. - -COPYRIGHT AND LICENCE - -Copyright (C) 2007, Andy Armstrong - -This library is free software; you can redistribute it and/or modify -it under the same terms as Perl itself. diff --git a/Data-YAML-0.0.6/SIGNATURE b/Data-YAML-0.0.6/SIGNATURE deleted file mode 100644 index d8abc76..0000000 --- a/Data-YAML-0.0.6/SIGNATURE +++ /dev/null @@ -1,38 +0,0 @@ -This file contains message digests of all files listed in MANIFEST, -signed via the Module::Signature module, version 0.55. - -To verify the content in this distribution, first make sure you have -Module::Signature installed, then type: - - % cpansign -v - -It will check each file's integrity, as well as the signature's -validity. If "==> Signature verified OK! <==" is not displayed, -the distribution may already have been compromised, and you should -not run its Makefile.PL or Build.PL. - ------BEGIN PGP SIGNED MESSAGE----- -Hash: SHA1 - -SHA1 a796da56d11015113d6690491bd352c9958c5c64 Changes -SHA1 1f4a6f38328ce9be2882634c0bdc84d6d9cb98e4 MANIFEST -SHA1 06f48c95ab84fcd8dd0e1a92e45c48dd8b65395e META.yml -SHA1 6a0c4a0f0093335e6e1e8f7d6fd1fcecad0c4a83 Makefile.PL -SHA1 0aa5814a1f2c123d5b0f51643a1eff297543e589 README -SHA1 446ba3a109b32a9091b4313fb1b70bb1e704ed76 lib/Data/YAML.pm -SHA1 32611505ba10508d42104ee676466edd0f7ffa89 lib/Data/YAML/Reader.pm -SHA1 ae4f9923febd88025bb2f923b1f6b6e8ec5e9982 lib/Data/YAML/Writer.pm -SHA1 4cf9e6d03b2ba3e3ab482d138a94e95c6ecf6492 t/00.load.t -SHA1 161ecef48d8e921399c3406cc2b2ca85442bd0e7 t/10-input.t -SHA1 e3de4eff0004dcaf16aaed29a3df478f50a7058c t/20-reader.t -SHA1 ae69251cc811bc4934ad08c165f34be398474e4f t/30-output.t -SHA1 9b7b9be6fd31c4b378dd4b1a866cb68a51b1030c t/40-writer.t -SHA1 aeaa691851a425f07ab6a8d4f825e2ad9d92b8ee t/pod-coverage.t -SHA1 0190346d7072d458c8a10a45c19f86db641dcc48 t/pod.t ------BEGIN PGP SIGNATURE----- -Version: GnuPG v1.4.9 (Darwin) - -iEYEARECAAYFAkmzB+4ACgkQwoknRJZQnCEljwCgiQmQmQlvYQOTc118yk1GxyRk -O2IAoMAritfzopChUsyF9HyFXCFUrfLl -=o0s7 ------END PGP SIGNATURE----- diff --git a/Data-YAML-0.0.6/blib/arch/.exists b/Data-YAML-0.0.6/blib/arch/.exists deleted file mode 100644 index e69de29..0000000 --- a/Data-YAML-0.0.6/blib/arch/.exists +++ /dev/null diff --git a/Data-YAML-0.0.6/blib/arch/auto/Data/YAML/.exists b/Data-YAML-0.0.6/blib/arch/auto/Data/YAML/.exists deleted file mode 100644 index e69de29..0000000 --- a/Data-YAML-0.0.6/blib/arch/auto/Data/YAML/.exists +++ /dev/null diff --git a/Data-YAML-0.0.6/blib/bin/.exists b/Data-YAML-0.0.6/blib/bin/.exists deleted file mode 100644 index e69de29..0000000 --- a/Data-YAML-0.0.6/blib/bin/.exists +++ /dev/null diff --git a/Data-YAML-0.0.6/blib/lib/Data/.exists b/Data-YAML-0.0.6/blib/lib/Data/.exists deleted file mode 100644 index e69de29..0000000 --- a/Data-YAML-0.0.6/blib/lib/Data/.exists +++ /dev/null diff --git a/Data-YAML-0.0.6/blib/lib/Data/YAML.pm b/Data-YAML-0.0.6/blib/lib/Data/YAML.pm deleted file mode 100644 index dd6716b..0000000 --- a/Data-YAML-0.0.6/blib/lib/Data/YAML.pm +++ /dev/null @@ -1,145 +0,0 @@ -package Data::YAML; - -use strict; -use warnings; - -use vars qw{$VERSION}; - -$VERSION = '0.0.6'; - -1; - -__END__ - -=head1 NAME - -Data::YAML - Easy YAML serialisation of Perl data structures - -=head1 VERSION - -This document describes Data::YAML version 0.0.6 - -=head1 DESCRIPTION - -In the spirit of L<YAML::Tiny>, L<Data::YAML::Reader> and -L<Data::YAML::Writer> provide lightweight, dependency-free YAML -handling. While C<YAML::Tiny> is designed principally for working with -configuration files C<Data::YAML> concentrates on the transparent round- -tripping of YAML serialized Perl data structures. - -As an example of why this distinction matters consider that -C<YAML::Tiny> doesn't handle hashes with keys containing non-printable -characters. This is fine for configuration files but likely to cause -problems when handling arbitrary Perl data structures. C<Data::YAML> -handles exotic hash keys correctly. - -The syntax accepted by C<Data::YAML> is a subset of YAML. Specifically -it is the same subset of YAML that L<Data::YAML::Writer> produces. See -L<Data::YAML> for more information. - -=head2 YAML syntax - -Although YAML appears to be a simple language the entire YAML -specification is huge. C<Data::YAML> implements a small subset of the -complete syntax trading completeness for compactness and simplicity. -This restricted syntax is known (to me at least) as 'YAMLish'. - -These examples demonstrates the full range of supported syntax. - -All YAML documents must begin with '---' and end with a line -containing '...'. - - --- Simple scalar - ... - -Unprintable characters are represented using standard escapes in double -quoted strings. - - --- "\t\x01\x02\n" - ... - -Array and hashes are represented thusly - - --- - - "This" - - "is" - - "an" - - "array" - ... - - --- - This: is - a: hash - ... - -Structures may nest arbitrarily - - --- - - - name: 'Hash one' - value: 1 - - - name: 'Hash two' - value: 2 - ... - -Undef is a tilde - - --- ~ - ... - -=head2 Uses - -Use C<Data::YAML> may be used any time you need to freeze and thaw Perl -data structures into a human readable format. The output from -C<Data::YAML::Writer> should be readable by any YAML parser. - -C<Data::YAML> was originally written to allow machine-readable -diagnostic information to be passed from test scripts to -L<TAP::Harness>. That means that if you're writing a testing system that -needs to output TAP version 13 or later syntax you might find -C<Data::YAML> useful. - -Read more about TAP and YAMLish here: L<http://testanything.org/wiki> - -=head1 BUGS AND LIMITATIONS - -No bugs have been reported. - -Please report any bugs or feature requests to -C<data-yaml@rt.cpan.org>, or through the web interface at -L<http://rt.cpan.org>. - -=head1 AUTHOR - -Andy Armstrong C<< <andy@hexten.net> >> - -=head1 LICENCE AND COPYRIGHT - -Copyright (c) 2007, Andy Armstrong C<< <andy@hexten.net> >>. All rights reserved. - -This module is free software; you can redistribute it and/or -modify it under the same terms as Perl itself. See L<perlartistic>. - -=head1 DISCLAIMER OF WARRANTY - -BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY -FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN -OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES -PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER -EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED -WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE -ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH -YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL -NECESSARY SERVICING, REPAIR, OR CORRECTION. - -IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING -WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR -REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENCE, BE -LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL, -OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE -THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING -RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A -FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF -SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF -SUCH DAMAGES. diff --git a/Data-YAML-0.0.6/blib/lib/Data/YAML/Reader.pm b/Data-YAML-0.0.6/blib/lib/Data/YAML/Reader.pm deleted file mode 100644 index dbd5189..0000000 --- a/Data-YAML-0.0.6/blib/lib/Data/YAML/Reader.pm +++ /dev/null @@ -1,422 +0,0 @@ -package Data::YAML::Reader; - -use strict; -use warnings; -use Carp; - -use vars qw{$VERSION}; - -$VERSION = '0.0.6'; - -# TODO: -# Handle blessed object syntax - -# Printable characters for escapes -my %UNESCAPES = ( - z => "\x00", - a => "\x07", - t => "\x09", - n => "\x0a", - v => "\x0b", - f => "\x0c", - r => "\x0d", - e => "\x1b", - '\\' => '\\', -); - -my $QQ_STRING = qr{ " (?:\\. | [^"])* " }x; -my $HASH_LINE = qr{ ^ ($QQ_STRING|\S+) \s* : (?: \s+ (.+?) \s* )? $ }x; -my $IS_HASH_KEY = qr{ ^ [\w\'\"] }x; -my $IS_END_YAML = qr{ ^ [.][.][.] \s* $ }x; -my $IS_QQ_STRING = qr{ ^ $QQ_STRING $ }x; - -# Create an empty Data::YAML::Reader object -sub new { - my $class = shift; - bless {}, $class; -} - -sub _make_reader { - my $self = shift; - my $obj = shift; - - croak "Must have something to read from" - unless defined $obj; - - if ( my $ref = ref $obj ) { - if ( 'CODE' eq $ref ) { - return $obj; - } - elsif ( 'ARRAY' eq $ref ) { - return sub { shift @$obj }; - } - elsif ( 'SCALAR' eq $ref ) { - return $self->_make_reader( $$obj ); - } - elsif ( 'GLOB' eq $ref || 'IO::Handle' eq $ref ) { - return sub { - my $line = <$obj>; - chomp $line if defined $line; - return $line; - }; - } - croak "Don't know how to read $ref"; - } - else { - my @lines = split( /\n/, $obj ); - return sub { shift @lines }; - } -} - -sub read { - my $self = shift; - my $obj = shift; - - $self->{reader} = $self->_make_reader( $obj ); - $self->{capture} = []; - - #Â Prime the reader - $self->_next; - - my $doc = $self->_read; - - # The terminator is mandatory otherwise we'd consume a line from the - # iterator that doesn't belong to us. If we want to remove this - # restriction we'll have to implement look-ahead in the iterators. - # Which might not be a bad idea. - my $dots = $self->_peek; - croak "Missing '...' at end of YAML" - unless $dots =~ $IS_END_YAML; - - delete $self->{reader}; - delete $self->{next}; - - return $doc; -} - -sub get_raw { - my $self = shift; - - if ( defined( my $capture = $self->{capture} ) ) { - return join( "\n", @$capture ) . "\n"; - } - - return ''; -} - -sub _peek { - my $self = shift; - return $self->{next} unless wantarray; - my $line = $self->{next}; - $line =~ /^ (\s*) (.*) $ /x; - return ( $2, length $1 ); -} - -sub _next { - my $self = shift; - croak "_next called with no reader" - unless $self->{reader}; - my $line = $self->{reader}->(); - $self->{next} = $line; - push @{ $self->{capture} }, $line; -} - -sub _read { - my $self = shift; - - my $line = $self->_peek; - - # Do we have a document header? - if ( $line =~ /^ --- (?: \s* (.+?) \s* )? $/x ) { - $self->_next; - - return $self->_read_scalar( $1 ) if defined $1; # Inline? - - my ( $next, $indent ) = $self->_peek; - - if ( $next =~ /^ - /x ) { - return $self->_read_array( $indent ); - } - elsif ( $next =~ $IS_HASH_KEY ) { - return $self->_read_hash( $next, $indent ); - } - elsif ( $next =~ $IS_END_YAML ) { - croak "Premature end of YAML"; - } - else { - croak "Unsupported YAML syntax: '$next'"; - } - } - else { - croak "YAML document header not found"; - } -} - -# Parse a double quoted string -sub _read_qq { - my $self = shift; - my $str = shift; - - unless ( $str =~ s/^ " (.*?) " $/$1/x ) { - die "Internal: not a quoted string"; - } - - $str =~ s/\\"/"/gx; - $str =~ s/ \\ ( [tartan\\favez] | x([0-9a-fA-F]{2}) ) - / (length($1) > 1) ? pack("H2", $2) : $UNESCAPES{$1} /gex; - return $str; -} - -# Parse a scalar string to the actual scalar -sub _read_scalar { - my $self = shift; - my $string = shift; - - return undef if $string eq '~'; - - if ( $string eq '>' || $string eq '|' ) { - - my ( $line, $indent ) = $self->_peek; - die "Multi-line scalar content missing" unless defined $line; - - my @multiline = ( $line ); - - while ( 1 ) { - $self->_next; - my ( $next, $ind ) = $self->_peek; - last if $ind < $indent; - push @multiline, $next; - } - - return join( ( $string eq '>' ? ' ' : "\n" ), @multiline ) . "\n"; - } - - if ( $string =~ /^ ' (.*) ' $/x ) { - ( my $rv = $1 ) =~ s/''/'/g; - return $rv; - } - - if ( $string =~ $IS_QQ_STRING ) { - return $self->_read_qq( $string ); - } - - if ( $string =~ /^['"]/ ) { - - # A quote with folding... we don't support that - die __PACKAGE__ . " does not support multi-line quoted scalars"; - } - - # Regular unquoted string - return $string; -} - -sub _read_nested { - my $self = shift; - - my ( $line, $indent ) = $self->_peek; - - if ( $line =~ /^ -/x ) { - return $self->_read_array( $indent ); - } - elsif ( $line =~ $IS_HASH_KEY ) { - return $self->_read_hash( $line, $indent ); - } - else { - croak "Unsupported YAML syntax: '$line'"; - } -} - -# Parse an array -sub _read_array { - my ( $self, $limit ) = @_; - - my $ar = []; - - while ( 1 ) { - my ( $line, $indent ) = $self->_peek; - last if $indent < $limit || !defined $line || $line =~ $IS_END_YAML; - - if ( $indent > $limit ) { - croak "Array line over-indented"; - } - - if ( $line =~ /^ (- \s+) \S+ \s* : (?: \s+ | $ ) /x ) { - $indent += length $1; - $line =~ s/-\s+//; - push @$ar, $self->_read_hash( $line, $indent ); - } - elsif ( $line =~ /^ - \s* (.+?) \s* $/x ) { - croak "Unexpected start of YAML" if $line =~ /^---/; - $self->_next; - push @$ar, $self->_read_scalar( $1 ); - } - elsif ( $line =~ /^ - \s* $/x ) { - $self->_next; - push @$ar, $self->_read_nested; - } - elsif ( $line =~ $IS_HASH_KEY ) { - $self->_next; - push @$ar, $self->_read_hash( $line, $indent, ); - } - else { - croak "Unsupported YAML syntax: '$line'"; - } - } - - return $ar; -} - -sub _read_hash { - my ( $self, $line, $limit ) = @_; - - my $indent; - my $hash = {}; - - while ( 1 ) { - croak "Badly formed hash line: '$line'" - unless $line =~ $HASH_LINE; - - my ( $key, $value ) = ( $self->_read_scalar( $1 ), $2 ); - $self->_next; - - if ( defined $value ) { - $hash->{$key} = $self->_read_scalar( $value ); - } - else { - $hash->{$key} = $self->_read_nested; - } - - ( $line, $indent ) = $self->_peek; - last if $indent < $limit || !defined $line || $line =~ $IS_END_YAML; - } - - return $hash; -} - -1; - -__END__ - -=head1 NAME - -Data::YAML::Reader - Parse YAML created by Data::YAML::Writer - -=head1 VERSION - -This document describes Data::YAML::Reader version 0.0.6 - -=head1 SYNOPSIS - - use Data::YAML::Reader; - - my $yr = Data::YAML::Reader->new; - - # Read from an array... - my $from_array = $yr->read( \@some_array ); - - # ...an open file handle... - my $from_handle = $yr->read( $some_file ); - - # ...a string containing YAML... - my $from_string = $yr->read( $some_string ); - - # ...or a closure - my $from_code = $yr->read( sub { return get_next_line() } ); - -=head1 DESCRIPTION - -In the spirit of L<YAML::Tiny> this is a lightweight, dependency-free -YAML reader. While C<YAML::Tiny> is designed principally for working -with configuration files C<Data::YAML> concentrates on the transparent -round-tripping of YAML serialized Perl data structures. - -The syntax accepted by C<Data::YAML::Reader> is a subset of YAML. -Specifically it is the same subset of YAML that L<Data::YAML::Writer> -produces. See L<Data::YAML> for more information. - -=head1 INTERFACE - -=over - -=item C<< new >> - -Creates and returns an empty C<Data::YAML::Reader> object. No options may be passed. - -=item C<< read( $source ) >> - -Read YAML and return the data structure it represents. The YAML data may be supplied by a - -=over - -=item * scalar string containing YAML source - -=item * the handle of an open file - -=item * a reference to an array of lines - -=item * a code reference - -=back - -In the case of a code reference a subroutine (most likely a closure) -that returns successive lines of YAML must be supplied. Lines should -have no trailing newline. When the YAML is exhausted the subroutine must -return undef. - -Returns the data structure (specifically either a scalar, hash ref or -array ref) that results from decoding the YAML. - -=item C<< get_raw >> - -Return the raw YAML source from the most recent C<read>. - -=back - -=head1 BUGS AND LIMITATIONS - -No bugs have been reported. - -Please report any bugs or feature requests to -C<data-yaml@rt.cpan.org>, or through the web interface at -L<http://rt.cpan.org>. - -=head1 SEE ALSO - -L<YAML::Tiny>, L<YAML>, L<YAML::Syck>, L<Config::Tiny>, L<CSS::Tiny> - -=head1 AUTHOR - -Andy Armstrong C<< <andy@hexten.net> >> - -Adam Kennedy wrote L<YAML::Tiny> which provided the template and many of -the YAML matching regular expressions for this module. - -=head1 LICENCE AND COPYRIGHT - -Copyright (c) 2007, Andy Armstrong C<< <andy@hexten.net> >>. All rights reserved. - -This module is free software; you can redistribute it and/or -modify it under the same terms as Perl itself. See L<perlartistic>. - -=head1 DISCLAIMER OF WARRANTY - -BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY -FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN -OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES -PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER -EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED -WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE -ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH -YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL -NECESSARY SERVICING, REPAIR, OR CORRECTION. - -IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING -WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR -REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENCE, BE -LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL, -OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE -THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING -RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A -FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF -SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF -SUCH DAMAGES. diff --git a/Data-YAML-0.0.6/blib/lib/Data/YAML/Writer.pm b/Data-YAML-0.0.6/blib/lib/Data/YAML/Writer.pm deleted file mode 100644 index abce670..0000000 --- a/Data-YAML-0.0.6/blib/lib/Data/YAML/Writer.pm +++ /dev/null @@ -1,269 +0,0 @@ -package Data::YAML::Writer; - -use strict; -use warnings; -use Carp; - -use vars qw{$VERSION}; - -$VERSION = '0.0.6'; - -my $ESCAPE_CHAR = qr{ [\x00-\x1f\"] }x; - -my @UNPRINTABLE = qw( - z x01 x02 x03 x04 x05 x06 a - x08 t n v f r x0e x0f - x10 x11 x12 x13 x14 x15 x16 x17 - x18 x19 x1a e x1c x1d x1e x1f -); - -# Create an empty Data::YAML::Writer object -sub new { - my $class = shift; - bless {}, $class; -} - -sub write { - my $self = shift; - - croak "Need something to write" - unless @_; - - my $obj = shift; - my $out = shift || \*STDOUT; - - croak "Need a reference to something I can write to" - unless ref $out; - - $self->{writer} = $self->_make_writer( $out ); - - $self->_write_obj( '---', $obj ); - $self->_put( '...' ); - - delete $self->{writer}; -} - -sub _make_writer { - my $self = shift; - my $out = shift; - - my $ref = ref $out; - - if ( 'CODE' eq $ref ) { - return $out; - } - elsif ( 'ARRAY' eq $ref ) { - return sub { push @$out, shift }; - } - elsif ( 'SCALAR' eq $ref ) { - return sub { $$out .= shift() . "\n" }; - } - elsif ( 'GLOB' eq $ref || 'IO::Handle' eq $ref ) { - return sub { print $out shift(), "\n" }; - } - - croak "Can't write to $out"; -} - -sub _put { - my $self = shift; - $self->{writer}->( join '', @_ ); -} - -sub _enc_scalar { - my $self = shift; - my $val = shift; - - return '~' unless defined $val; - - if ( $val =~ /$ESCAPE_CHAR/ ) { - $val =~ s/\\/\\\\/g; - $val =~ s/"/\\"/g; - $val =~ s/ ( [\x00-\x1f] ) / '\\' . $UNPRINTABLE[ ord($1) ] /gex; - return qq{"$val"}; - } - - if ( length( $val ) == 0 or $val =~ /\s/ ) { - $val =~ s/'/''/; - return "'$val'"; - } - - return $val; -} - -sub _write_obj { - my $self = shift; - my $prefix = shift; - my $obj = shift; - my $indent = shift || 0; - - if ( my $ref = ref $obj ) { - my $pad = ' ' x $indent; - $self->_put( $prefix ); - if ( 'HASH' eq $ref ) { - for my $key ( sort keys %$obj ) { - my $value = $obj->{$key}; - $self->_write_obj( $pad . $self->_enc_scalar( $key ) . ':', - $value, $indent + 1 ); - } - } - elsif ( 'ARRAY' eq $ref ) { - for my $value ( @$obj ) { - $self->_write_obj( $pad . '-', $value, $indent + 1 ); - } - } - else { - croak "Don't know how to encode $ref"; - } - } - else { - $self->_put( $prefix, ' ', $self->_enc_scalar( $obj ) ); - } -} - -1; - -__END__ - - -=head1 NAME - -Data::YAML::Writer - Easy YAML serialisation - -=head1 VERSION - -This document describes Data::YAML::Writer version 0.0.6 - -=head1 SYNOPSIS - - use Data::YAML::Writer; - - my $data = { - one => 1, - two => 2, - three => [ 1, 2, 3 ], - }; - - my $yw = Data::YAML::Writer->new; - - # Write to an array... - $yw->write( $data, \@some_array ); - - # ...an open file handle... - $yw->write( $data, $some_file_handle ); - - # ...a string ... - $yw->write( $data, \$some_string ); - - # ...or a closure - $yw->write( $data, sub { - my $line = shift; - print "$line\n"; - } ); - - -=head1 DESCRIPTION - -Encodes a scalar, hash reference or array reference as YAML. - -In the spirit of L<YAML::Tiny> this is a lightweight, dependency-free -YAML writer. While C<YAML::Tiny> is designed principally for working -with configuration files C<Data::YAML> concentrates on the transparent -round-tripping of YAML serialized Perl data structures. - -The syntax produced by C<Data::YAML::Writer> is a subset of YAML. -Specifically it is the same subset of YAML that L<Data::YAML::Reader> -consumes. See L<Data::YAML> for more information. - -=head1 INTERFACE - -=over - -=item C<< new >> - -The constructor C<new> creates and returns an empty C<Data::YAML::Writer> object. - -=item C<< write( $obj, $output ) >> - -Encode a scalar, hash reference or array reference as YAML. - - my $writer = sub { - my $line = shift; - print SOMEFILE "$line\n"; - }; - - my $data = { - one => 1, - two => 2, - three => [ 1, 2, 3 ], - }; - - my $yw = Data::YAML::Writer->new; - $yw->write( $data, $writer ); - - -The C< $output > argument may be - -=over - -=item * a reference to a scalar to append YAML to - -=item * the handle of an open file - -=item * a reference to an array into which YAML will be pushed - -=item * a code reference - -=back - -If you supply a code reference the subroutine will be called once for -each line of output with the line as its only argument. Passed lines -will have no trailing newline. - -=back - -=head1 BUGS AND LIMITATIONS - -No bugs have been reported. - -Please report any bugs or feature requests to -C<data-yaml@rt.cpan.org>, or through the web interface at -L<http://rt.cpan.org>. - -=head1 SEE ALSO - -L<YAML::Tiny>, L<YAML>, L<YAML::Syck>, L<Config::Tiny>, L<CSS::Tiny> - -=head1 AUTHOR - -Andy Armstrong C<< <andy@hexten.net> >> - -=head1 LICENCE AND COPYRIGHT - -Copyright (c) 2007, Andy Armstrong C<< <andy@hexten.net> >>. All rights reserved. - -This module is free software; you can redistribute it and/or -modify it under the same terms as Perl itself. See L<perlartistic>. - -=head1 DISCLAIMER OF WARRANTY - -BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY -FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN -OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES -PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER -EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED -WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE -ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH -YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL -NECESSARY SERVICING, REPAIR, OR CORRECTION. - -IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING -WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR -REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENCE, BE -LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL, -OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE -THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING -RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A -FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF -SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF -SUCH DAMAGES. diff --git a/Data-YAML-0.0.6/blib/lib/auto/Data/YAML/.exists b/Data-YAML-0.0.6/blib/lib/auto/Data/YAML/.exists deleted file mode 100644 index e69de29..0000000 --- a/Data-YAML-0.0.6/blib/lib/auto/Data/YAML/.exists +++ /dev/null diff --git a/Data-YAML-0.0.6/blib/man1/.exists b/Data-YAML-0.0.6/blib/man1/.exists deleted file mode 100644 index e69de29..0000000 --- a/Data-YAML-0.0.6/blib/man1/.exists +++ /dev/null diff --git a/Data-YAML-0.0.6/blib/man3/.exists b/Data-YAML-0.0.6/blib/man3/.exists deleted file mode 100644 index e69de29..0000000 --- a/Data-YAML-0.0.6/blib/man3/.exists +++ /dev/null diff --git a/Data-YAML-0.0.6/blib/man3/Data::YAML.3pm b/Data-YAML-0.0.6/blib/man3/Data::YAML.3pm deleted file mode 100644 index b0f422d..0000000 --- a/Data-YAML-0.0.6/blib/man3/Data::YAML.3pm +++ /dev/null @@ -1,264 +0,0 @@ -.\" Automatically generated by Pod::Man 2.22 (Pod::Simple 3.13) -.\" -.\" Standard preamble: -.\" ======================================================================== -.de Sp \" Vertical space (when we can't use .PP) -.if t .sp .5v -.if n .sp -.. -.de Vb \" Begin verbatim text -.ft CW -.nf -.ne \\$1 -.. -.de Ve \" End verbatim text -.ft R -.fi -.. -.\" Set up some character translations and predefined strings. \*(-- will -.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left -.\" double quote, and \*(R" will give a right double quote. \*(C+ will -.\" give a nicer C++. Capital omega is used to do unbreakable dashes and -.\" therefore won't be available. \*(C` and \*(C' expand to `' in nroff, -.\" nothing in troff, for use with C<>. -.tr \(*W- -.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p' -.ie n \{\ -. ds -- \(*W- -. ds PI pi -. if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch -. if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch -. ds L" "" -. ds R" "" -. ds C` "" -. ds C' "" -'br\} -.el\{\ -. ds -- \|\(em\| -. ds PI \(*p -. ds L" `` -. ds R" '' -'br\} -.\" -.\" Escape single quotes in literal strings from groff's Unicode transform. -.ie \n(.g .ds Aq \(aq -.el .ds Aq ' -.\" -.\" If the F register is turned on, we'll generate index entries on stderr for -.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index -.\" entries marked with X<> in POD. Of course, you'll have to process the -.\" output yourself in some meaningful fashion. -.ie \nF \{\ -. de IX -. tm Index:\\$1\t\\n%\t"\\$2" -.. -. nr % 0 -. rr F -.\} -.el \{\ -. de IX -.. -.\} -.\" -.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2). -.\" Fear. Run. Save yourself. No user-serviceable parts. -. \" fudge factors for nroff and troff -.if n \{\ -. ds #H 0 -. ds #V .8m -. ds #F .3m -. ds #[ \f1 -. ds #] \fP -.\} -.if t \{\ -. ds #H ((1u-(\\\\n(.fu%2u))*.13m) -. ds #V .6m -. ds #F 0 -. ds #[ \& -. ds #] \& -.\} -. \" simple accents for nroff and troff -.if n \{\ -. ds ' \& -. ds ` \& -. ds ^ \& -. ds , \& -. ds ~ ~ -. ds / -.\} -.if t \{\ -. ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u" -. ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u' -. ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u' -. ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u' -. ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u' -. ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u' -.\} -. \" troff and (daisy-wheel) nroff accents -.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V' -.ds 8 \h'\*(#H'\(*b\h'-\*(#H' -.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#] -.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H' -.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u' -.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#] -.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#] -.ds ae a\h'-(\w'a'u*4/10)'e -.ds Ae A\h'-(\w'A'u*4/10)'E -. \" corrections for vroff -.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u' -.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u' -. \" for low resolution devices (crt and lpr) -.if \n(.H>23 .if \n(.V>19 \ -\{\ -. ds : e -. ds 8 ss -. ds o a -. ds d- d\h'-1'\(ga -. ds D- D\h'-1'\(hy -. ds th \o'bp' -. ds Th \o'LP' -. ds ae ae -. ds Ae AE -.\} -.rm #[ #] #H #V #F C -.\" ======================================================================== -.\" -.IX Title "Data::YAML 3" -.TH Data::YAML 3 "2009-03-08" "perl v5.10.1" "User Contributed Perl Documentation" -.\" For nroff, turn off justification. Always turn off hyphenation; it makes -.\" way too many mistakes in technical documents. -.if n .ad l -.nh -.SH "NAME" -Data::YAML \- Easy YAML serialisation of Perl data structures -.SH "VERSION" -.IX Header "VERSION" -This document describes Data::YAML version 0.0.6 -.SH "DESCRIPTION" -.IX Header "DESCRIPTION" -In the spirit of YAML::Tiny, Data::YAML::Reader and -Data::YAML::Writer provide lightweight, dependency-free \s-1YAML\s0 -handling. While \f(CW\*(C`YAML::Tiny\*(C'\fR is designed principally for working with -configuration files \f(CW\*(C`Data::YAML\*(C'\fR concentrates on the transparent round\- -tripping of \s-1YAML\s0 serialized Perl data structures. -.PP -As an example of why this distinction matters consider that -\&\f(CW\*(C`YAML::Tiny\*(C'\fR doesn't handle hashes with keys containing non-printable -characters. This is fine for configuration files but likely to cause -problems when handling arbitrary Perl data structures. \f(CW\*(C`Data::YAML\*(C'\fR -handles exotic hash keys correctly. -.PP -The syntax accepted by \f(CW\*(C`Data::YAML\*(C'\fR is a subset of \s-1YAML\s0. Specifically -it is the same subset of \s-1YAML\s0 that Data::YAML::Writer produces. See -Data::YAML for more information. -.SS "\s-1YAML\s0 syntax" -.IX Subsection "YAML syntax" -Although \s-1YAML\s0 appears to be a simple language the entire \s-1YAML\s0 -specification is huge. \f(CW\*(C`Data::YAML\*(C'\fR implements a small subset of the -complete syntax trading completeness for compactness and simplicity. -This restricted syntax is known (to me at least) as 'YAMLish'. -.PP -These examples demonstrates the full range of supported syntax. -.PP -All \s-1YAML\s0 documents must begin with '\-\-\-' and end with a line -containing '...'. -.PP -.Vb 2 -\& \-\-\- Simple scalar -\& ... -.Ve -.PP -Unprintable characters are represented using standard escapes in double -quoted strings. -.PP -.Vb 2 -\& \-\-\- "\et\ex01\ex02\en" -\& ... -.Ve -.PP -Array and hashes are represented thusly -.PP -.Vb 6 -\& \-\-\- -\& \- "This" -\& \- "is" -\& \- "an" -\& \- "array" -\& ... -\& -\& \-\-\- -\& This: is -\& a: hash -\& ... -.Ve -.PP -Structures may nest arbitrarily -.PP -.Vb 8 -\& \-\-\- -\& \- -\& name: \*(AqHash one\*(Aq -\& value: 1 -\& \- -\& name: \*(AqHash two\*(Aq -\& value: 2 -\& ... -.Ve -.PP -Undef is a tilde -.PP -.Vb 2 -\& \-\-\- ~ -\& ... -.Ve -.SS "Uses" -.IX Subsection "Uses" -Use \f(CW\*(C`Data::YAML\*(C'\fR may be used any time you need to freeze and thaw Perl -data structures into a human readable format. The output from -\&\f(CW\*(C`Data::YAML::Writer\*(C'\fR should be readable by any \s-1YAML\s0 parser. -.PP -\&\f(CW\*(C`Data::YAML\*(C'\fR was originally written to allow machine-readable -diagnostic information to be passed from test scripts to -TAP::Harness. That means that if you're writing a testing system that -needs to output \s-1TAP\s0 version 13 or later syntax you might find -\&\f(CW\*(C`Data::YAML\*(C'\fR useful. -.PP -Read more about \s-1TAP\s0 and YAMLish here: <http://testanything.org/wiki> -.SH "BUGS AND LIMITATIONS" -.IX Header "BUGS AND LIMITATIONS" -No bugs have been reported. -.PP -Please report any bugs or feature requests to -\&\f(CW\*(C`data\-yaml@rt.cpan.org\*(C'\fR, or through the web interface at -<http://rt.cpan.org>. -.SH "AUTHOR" -.IX Header "AUTHOR" -Andy Armstrong \f(CW\*(C`<andy@hexten.net>\*(C'\fR -.SH "LICENCE AND COPYRIGHT" -.IX Header "LICENCE AND COPYRIGHT" -Copyright (c) 2007, Andy Armstrong \f(CW\*(C`<andy@hexten.net>\*(C'\fR. All rights reserved. -.PP -This module is free software; you can redistribute it and/or -modify it under the same terms as Perl itself. See perlartistic. -.SH "DISCLAIMER OF WARRANTY" -.IX Header "DISCLAIMER OF WARRANTY" -\&\s-1BECAUSE\s0 \s-1THIS\s0 \s-1SOFTWARE\s0 \s-1IS\s0 \s-1LICENSED\s0 \s-1FREE\s0 \s-1OF\s0 \s-1CHARGE\s0, \s-1THERE\s0 \s-1IS\s0 \s-1NO\s0 \s-1WARRANTY\s0 -\&\s-1FOR\s0 \s-1THE\s0 \s-1SOFTWARE\s0, \s-1TO\s0 \s-1THE\s0 \s-1EXTENT\s0 \s-1PERMITTED\s0 \s-1BY\s0 \s-1APPLICABLE\s0 \s-1LAW\s0. \s-1EXCEPT\s0 \s-1WHEN\s0 -\&\s-1OTHERWISE\s0 \s-1STATED\s0 \s-1IN\s0 \s-1WRITING\s0 \s-1THE\s0 \s-1COPYRIGHT\s0 \s-1HOLDERS\s0 \s-1AND/OR\s0 \s-1OTHER\s0 \s-1PARTIES\s0 -\&\s-1PROVIDE\s0 \s-1THE\s0 \s-1SOFTWARE\s0 \*(L"\s-1AS\s0 \s-1IS\s0\*(R" \s-1WITHOUT\s0 \s-1WARRANTY\s0 \s-1OF\s0 \s-1ANY\s0 \s-1KIND\s0, \s-1EITHER\s0 -\&\s-1EXPRESSED\s0 \s-1OR\s0 \s-1IMPLIED\s0, \s-1INCLUDING\s0, \s-1BUT\s0 \s-1NOT\s0 \s-1LIMITED\s0 \s-1TO\s0, \s-1THE\s0 \s-1IMPLIED\s0 -\&\s-1WARRANTIES\s0 \s-1OF\s0 \s-1MERCHANTABILITY\s0 \s-1AND\s0 \s-1FITNESS\s0 \s-1FOR\s0 A \s-1PARTICULAR\s0 \s-1PURPOSE\s0. \s-1THE\s0 -\&\s-1ENTIRE\s0 \s-1RISK\s0 \s-1AS\s0 \s-1TO\s0 \s-1THE\s0 \s-1QUALITY\s0 \s-1AND\s0 \s-1PERFORMANCE\s0 \s-1OF\s0 \s-1THE\s0 \s-1SOFTWARE\s0 \s-1IS\s0 \s-1WITH\s0 -\&\s-1YOU\s0. \s-1SHOULD\s0 \s-1THE\s0 \s-1SOFTWARE\s0 \s-1PROVE\s0 \s-1DEFECTIVE\s0, \s-1YOU\s0 \s-1ASSUME\s0 \s-1THE\s0 \s-1COST\s0 \s-1OF\s0 \s-1ALL\s0 -\&\s-1NECESSARY\s0 \s-1SERVICING\s0, \s-1REPAIR\s0, \s-1OR\s0 \s-1CORRECTION\s0. -.PP -\&\s-1IN\s0 \s-1NO\s0 \s-1EVENT\s0 \s-1UNLESS\s0 \s-1REQUIRED\s0 \s-1BY\s0 \s-1APPLICABLE\s0 \s-1LAW\s0 \s-1OR\s0 \s-1AGREED\s0 \s-1TO\s0 \s-1IN\s0 \s-1WRITING\s0 -\&\s-1WILL\s0 \s-1ANY\s0 \s-1COPYRIGHT\s0 \s-1HOLDER\s0, \s-1OR\s0 \s-1ANY\s0 \s-1OTHER\s0 \s-1PARTY\s0 \s-1WHO\s0 \s-1MAY\s0 \s-1MODIFY\s0 \s-1AND/OR\s0 -\&\s-1REDISTRIBUTE\s0 \s-1THE\s0 \s-1SOFTWARE\s0 \s-1AS\s0 \s-1PERMITTED\s0 \s-1BY\s0 \s-1THE\s0 \s-1ABOVE\s0 \s-1LICENCE\s0, \s-1BE\s0 -\&\s-1LIABLE\s0 \s-1TO\s0 \s-1YOU\s0 \s-1FOR\s0 \s-1DAMAGES\s0, \s-1INCLUDING\s0 \s-1ANY\s0 \s-1GENERAL\s0, \s-1SPECIAL\s0, \s-1INCIDENTAL\s0, -\&\s-1OR\s0 \s-1CONSEQUENTIAL\s0 \s-1DAMAGES\s0 \s-1ARISING\s0 \s-1OUT\s0 \s-1OF\s0 \s-1THE\s0 \s-1USE\s0 \s-1OR\s0 \s-1INABILITY\s0 \s-1TO\s0 \s-1USE\s0 -\&\s-1THE\s0 \s-1SOFTWARE\s0 (\s-1INCLUDING\s0 \s-1BUT\s0 \s-1NOT\s0 \s-1LIMITED\s0 \s-1TO\s0 \s-1LOSS\s0 \s-1OF\s0 \s-1DATA\s0 \s-1OR\s0 \s-1DATA\s0 \s-1BEING\s0 -\&\s-1RENDERED\s0 \s-1INACCURATE\s0 \s-1OR\s0 \s-1LOSSES\s0 \s-1SUSTAINED\s0 \s-1BY\s0 \s-1YOU\s0 \s-1OR\s0 \s-1THIRD\s0 \s-1PARTIES\s0 \s-1OR\s0 A -\&\s-1FAILURE\s0 \s-1OF\s0 \s-1THE\s0 \s-1SOFTWARE\s0 \s-1TO\s0 \s-1OPERATE\s0 \s-1WITH\s0 \s-1ANY\s0 \s-1OTHER\s0 \s-1SOFTWARE\s0), \s-1EVEN\s0 \s-1IF\s0 -\&\s-1SUCH\s0 \s-1HOLDER\s0 \s-1OR\s0 \s-1OTHER\s0 \s-1PARTY\s0 \s-1HAS\s0 \s-1BEEN\s0 \s-1ADVISED\s0 \s-1OF\s0 \s-1THE\s0 \s-1POSSIBILITY\s0 \s-1OF\s0 -\&\s-1SUCH\s0 \s-1DAMAGES\s0. diff --git a/Data-YAML-0.0.6/blib/man3/Data::YAML::Reader.3pm b/Data-YAML-0.0.6/blib/man3/Data::YAML::Reader.3pm deleted file mode 100644 index f01295e..0000000 --- a/Data-YAML-0.0.6/blib/man3/Data::YAML::Reader.3pm +++ /dev/null @@ -1,243 +0,0 @@ -.\" Automatically generated by Pod::Man 2.22 (Pod::Simple 3.13) -.\" -.\" Standard preamble: -.\" ======================================================================== -.de Sp \" Vertical space (when we can't use .PP) -.if t .sp .5v -.if n .sp -.. -.de Vb \" Begin verbatim text -.ft CW -.nf -.ne \\$1 -.. -.de Ve \" End verbatim text -.ft R -.fi -.. -.\" Set up some character translations and predefined strings. \*(-- will -.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left -.\" double quote, and \*(R" will give a right double quote. \*(C+ will -.\" give a nicer C++. Capital omega is used to do unbreakable dashes and -.\" therefore won't be available. \*(C` and \*(C' expand to `' in nroff, -.\" nothing in troff, for use with C<>. -.tr \(*W- -.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p' -.ie n \{\ -. ds -- \(*W- -. ds PI pi -. if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch -. if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch -. ds L" "" -. ds R" "" -. ds C` "" -. ds C' "" -'br\} -.el\{\ -. ds -- \|\(em\| -. ds PI \(*p -. ds L" `` -. ds R" '' -'br\} -.\" -.\" Escape single quotes in literal strings from groff's Unicode transform. -.ie \n(.g .ds Aq \(aq -.el .ds Aq ' -.\" -.\" If the F register is turned on, we'll generate index entries on stderr for -.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index -.\" entries marked with X<> in POD. Of course, you'll have to process the -.\" output yourself in some meaningful fashion. -.ie \nF \{\ -. de IX -. tm Index:\\$1\t\\n%\t"\\$2" -.. -. nr % 0 -. rr F -.\} -.el \{\ -. de IX -.. -.\} -.\" -.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2). -.\" Fear. Run. Save yourself. No user-serviceable parts. -. \" fudge factors for nroff and troff -.if n \{\ -. ds #H 0 -. ds #V .8m -. ds #F .3m -. ds #[ \f1 -. ds #] \fP -.\} -.if t \{\ -. ds #H ((1u-(\\\\n(.fu%2u))*.13m) -. ds #V .6m -. ds #F 0 -. ds #[ \& -. ds #] \& -.\} -. \" simple accents for nroff and troff -.if n \{\ -. ds ' \& -. ds ` \& -. ds ^ \& -. ds , \& -. ds ~ ~ -. ds / -.\} -.if t \{\ -. ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u" -. ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u' -. ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u' -. ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u' -. ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u' -. ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u' -.\} -. \" troff and (daisy-wheel) nroff accents -.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V' -.ds 8 \h'\*(#H'\(*b\h'-\*(#H' -.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#] -.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H' -.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u' -.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#] -.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#] -.ds ae a\h'-(\w'a'u*4/10)'e -.ds Ae A\h'-(\w'A'u*4/10)'E -. \" corrections for vroff -.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u' -.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u' -. \" for low resolution devices (crt and lpr) -.if \n(.H>23 .if \n(.V>19 \ -\{\ -. ds : e -. ds 8 ss -. ds o a -. ds d- d\h'-1'\(ga -. ds D- D\h'-1'\(hy -. ds th \o'bp' -. ds Th \o'LP' -. ds ae ae -. ds Ae AE -.\} -.rm #[ #] #H #V #F C -.\" ======================================================================== -.\" -.IX Title "Data::YAML::Reader 3" -.TH Data::YAML::Reader 3 "2009-03-08" "perl v5.10.1" "User Contributed Perl Documentation" -.\" For nroff, turn off justification. Always turn off hyphenation; it makes -.\" way too many mistakes in technical documents. -.if n .ad l -.nh -.SH "NAME" -Data::YAML::Reader \- Parse YAML created by Data::YAML::Writer -.SH "VERSION" -.IX Header "VERSION" -This document describes Data::YAML::Reader version 0.0.6 -.SH "SYNOPSIS" -.IX Header "SYNOPSIS" -.Vb 1 -\& use Data::YAML::Reader; -\& -\& my $yr = Data::YAML::Reader\->new; -\& -\& # Read from an array... -\& my $from_array = $yr\->read( \e@some_array ); -\& -\& # ...an open file handle... -\& my $from_handle = $yr\->read( $some_file ); -\& -\& # ...a string containing YAML... -\& my $from_string = $yr\->read( $some_string ); -\& -\& # ...or a closure -\& my $from_code = $yr\->read( sub { return get_next_line() } ); -.Ve -.SH "DESCRIPTION" -.IX Header "DESCRIPTION" -In the spirit of YAML::Tiny this is a lightweight, dependency-free -\&\s-1YAML\s0 reader. While \f(CW\*(C`YAML::Tiny\*(C'\fR is designed principally for working -with configuration files \f(CW\*(C`Data::YAML\*(C'\fR concentrates on the transparent -round-tripping of \s-1YAML\s0 serialized Perl data structures. -.PP -The syntax accepted by \f(CW\*(C`Data::YAML::Reader\*(C'\fR is a subset of \s-1YAML\s0. -Specifically it is the same subset of \s-1YAML\s0 that Data::YAML::Writer -produces. See Data::YAML for more information. -.SH "INTERFACE" -.IX Header "INTERFACE" -.ie n .IP """new""" 4 -.el .IP "\f(CWnew\fR" 4 -.IX Item "new" -Creates and returns an empty \f(CW\*(C`Data::YAML::Reader\*(C'\fR object. No options may be passed. -.ie n .IP """read( $source )""" 4 -.el .IP "\f(CWread( $source )\fR" 4 -.IX Item "read( $source )" -Read \s-1YAML\s0 and return the data structure it represents. The \s-1YAML\s0 data may be supplied by a -.RS 4 -.IP "\(bu" 4 -scalar string containing \s-1YAML\s0 source -.IP "\(bu" 4 -the handle of an open file -.IP "\(bu" 4 -a reference to an array of lines -.IP "\(bu" 4 -a code reference -.RE -.RS 4 -.Sp -In the case of a code reference a subroutine (most likely a closure) -that returns successive lines of \s-1YAML\s0 must be supplied. Lines should -have no trailing newline. When the \s-1YAML\s0 is exhausted the subroutine must -return undef. -.Sp -Returns the data structure (specifically either a scalar, hash ref or -array ref) that results from decoding the \s-1YAML\s0. -.RE -.ie n .IP """get_raw""" 4 -.el .IP "\f(CWget_raw\fR" 4 -.IX Item "get_raw" -Return the raw \s-1YAML\s0 source from the most recent \f(CW\*(C`read\*(C'\fR. -.SH "BUGS AND LIMITATIONS" -.IX Header "BUGS AND LIMITATIONS" -No bugs have been reported. -.PP -Please report any bugs or feature requests to -\&\f(CW\*(C`data\-yaml@rt.cpan.org\*(C'\fR, or through the web interface at -<http://rt.cpan.org>. -.SH "SEE ALSO" -.IX Header "SEE ALSO" -YAML::Tiny, \s-1YAML\s0, YAML::Syck, Config::Tiny, CSS::Tiny -.SH "AUTHOR" -.IX Header "AUTHOR" -Andy Armstrong \f(CW\*(C`<andy@hexten.net>\*(C'\fR -.PP -Adam Kennedy wrote YAML::Tiny which provided the template and many of -the \s-1YAML\s0 matching regular expressions for this module. -.SH "LICENCE AND COPYRIGHT" -.IX Header "LICENCE AND COPYRIGHT" -Copyright (c) 2007, Andy Armstrong \f(CW\*(C`<andy@hexten.net>\*(C'\fR. All rights reserved. -.PP -This module is free software; you can redistribute it and/or -modify it under the same terms as Perl itself. See perlartistic. -.SH "DISCLAIMER OF WARRANTY" -.IX Header "DISCLAIMER OF WARRANTY" -\&\s-1BECAUSE\s0 \s-1THIS\s0 \s-1SOFTWARE\s0 \s-1IS\s0 \s-1LICENSED\s0 \s-1FREE\s0 \s-1OF\s0 \s-1CHARGE\s0, \s-1THERE\s0 \s-1IS\s0 \s-1NO\s0 \s-1WARRANTY\s0 -\&\s-1FOR\s0 \s-1THE\s0 \s-1SOFTWARE\s0, \s-1TO\s0 \s-1THE\s0 \s-1EXTENT\s0 \s-1PERMITTED\s0 \s-1BY\s0 \s-1APPLICABLE\s0 \s-1LAW\s0. \s-1EXCEPT\s0 \s-1WHEN\s0 -\&\s-1OTHERWISE\s0 \s-1STATED\s0 \s-1IN\s0 \s-1WRITING\s0 \s-1THE\s0 \s-1COPYRIGHT\s0 \s-1HOLDERS\s0 \s-1AND/OR\s0 \s-1OTHER\s0 \s-1PARTIES\s0 -\&\s-1PROVIDE\s0 \s-1THE\s0 \s-1SOFTWARE\s0 \*(L"\s-1AS\s0 \s-1IS\s0\*(R" \s-1WITHOUT\s0 \s-1WARRANTY\s0 \s-1OF\s0 \s-1ANY\s0 \s-1KIND\s0, \s-1EITHER\s0 -\&\s-1EXPRESSED\s0 \s-1OR\s0 \s-1IMPLIED\s0, \s-1INCLUDING\s0, \s-1BUT\s0 \s-1NOT\s0 \s-1LIMITED\s0 \s-1TO\s0, \s-1THE\s0 \s-1IMPLIED\s0 -\&\s-1WARRANTIES\s0 \s-1OF\s0 \s-1MERCHANTABILITY\s0 \s-1AND\s0 \s-1FITNESS\s0 \s-1FOR\s0 A \s-1PARTICULAR\s0 \s-1PURPOSE\s0. \s-1THE\s0 -\&\s-1ENTIRE\s0 \s-1RISK\s0 \s-1AS\s0 \s-1TO\s0 \s-1THE\s0 \s-1QUALITY\s0 \s-1AND\s0 \s-1PERFORMANCE\s0 \s-1OF\s0 \s-1THE\s0 \s-1SOFTWARE\s0 \s-1IS\s0 \s-1WITH\s0 -\&\s-1YOU\s0. \s-1SHOULD\s0 \s-1THE\s0 \s-1SOFTWARE\s0 \s-1PROVE\s0 \s-1DEFECTIVE\s0, \s-1YOU\s0 \s-1ASSUME\s0 \s-1THE\s0 \s-1COST\s0 \s-1OF\s0 \s-1ALL\s0 -\&\s-1NECESSARY\s0 \s-1SERVICING\s0, \s-1REPAIR\s0, \s-1OR\s0 \s-1CORRECTION\s0. -.PP -\&\s-1IN\s0 \s-1NO\s0 \s-1EVENT\s0 \s-1UNLESS\s0 \s-1REQUIRED\s0 \s-1BY\s0 \s-1APPLICABLE\s0 \s-1LAW\s0 \s-1OR\s0 \s-1AGREED\s0 \s-1TO\s0 \s-1IN\s0 \s-1WRITING\s0 -\&\s-1WILL\s0 \s-1ANY\s0 \s-1COPYRIGHT\s0 \s-1HOLDER\s0, \s-1OR\s0 \s-1ANY\s0 \s-1OTHER\s0 \s-1PARTY\s0 \s-1WHO\s0 \s-1MAY\s0 \s-1MODIFY\s0 \s-1AND/OR\s0 -\&\s-1REDISTRIBUTE\s0 \s-1THE\s0 \s-1SOFTWARE\s0 \s-1AS\s0 \s-1PERMITTED\s0 \s-1BY\s0 \s-1THE\s0 \s-1ABOVE\s0 \s-1LICENCE\s0, \s-1BE\s0 -\&\s-1LIABLE\s0 \s-1TO\s0 \s-1YOU\s0 \s-1FOR\s0 \s-1DAMAGES\s0, \s-1INCLUDING\s0 \s-1ANY\s0 \s-1GENERAL\s0, \s-1SPECIAL\s0, \s-1INCIDENTAL\s0, -\&\s-1OR\s0 \s-1CONSEQUENTIAL\s0 \s-1DAMAGES\s0 \s-1ARISING\s0 \s-1OUT\s0 \s-1OF\s0 \s-1THE\s0 \s-1USE\s0 \s-1OR\s0 \s-1INABILITY\s0 \s-1TO\s0 \s-1USE\s0 -\&\s-1THE\s0 \s-1SOFTWARE\s0 (\s-1INCLUDING\s0 \s-1BUT\s0 \s-1NOT\s0 \s-1LIMITED\s0 \s-1TO\s0 \s-1LOSS\s0 \s-1OF\s0 \s-1DATA\s0 \s-1OR\s0 \s-1DATA\s0 \s-1BEING\s0 -\&\s-1RENDERED\s0 \s-1INACCURATE\s0 \s-1OR\s0 \s-1LOSSES\s0 \s-1SUSTAINED\s0 \s-1BY\s0 \s-1YOU\s0 \s-1OR\s0 \s-1THIRD\s0 \s-1PARTIES\s0 \s-1OR\s0 A -\&\s-1FAILURE\s0 \s-1OF\s0 \s-1THE\s0 \s-1SOFTWARE\s0 \s-1TO\s0 \s-1OPERATE\s0 \s-1WITH\s0 \s-1ANY\s0 \s-1OTHER\s0 \s-1SOFTWARE\s0), \s-1EVEN\s0 \s-1IF\s0 -\&\s-1SUCH\s0 \s-1HOLDER\s0 \s-1OR\s0 \s-1OTHER\s0 \s-1PARTY\s0 \s-1HAS\s0 \s-1BEEN\s0 \s-1ADVISED\s0 \s-1OF\s0 \s-1THE\s0 \s-1POSSIBILITY\s0 \s-1OF\s0 -\&\s-1SUCH\s0 \s-1DAMAGES\s0. diff --git a/Data-YAML-0.0.6/blib/man3/Data::YAML::Writer.3pm b/Data-YAML-0.0.6/blib/man3/Data::YAML::Writer.3pm deleted file mode 100644 index 2ec49e5..0000000 --- a/Data-YAML-0.0.6/blib/man3/Data::YAML::Writer.3pm +++ /dev/null @@ -1,261 +0,0 @@ -.\" Automatically generated by Pod::Man 2.22 (Pod::Simple 3.13) -.\" -.\" Standard preamble: -.\" ======================================================================== -.de Sp \" Vertical space (when we can't use .PP) -.if t .sp .5v -.if n .sp -.. -.de Vb \" Begin verbatim text -.ft CW -.nf -.ne \\$1 -.. -.de Ve \" End verbatim text -.ft R -.fi -.. -.\" Set up some character translations and predefined strings. \*(-- will -.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left -.\" double quote, and \*(R" will give a right double quote. \*(C+ will -.\" give a nicer C++. Capital omega is used to do unbreakable dashes and -.\" therefore won't be available. \*(C` and \*(C' expand to `' in nroff, -.\" nothing in troff, for use with C<>. -.tr \(*W- -.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p' -.ie n \{\ -. ds -- \(*W- -. ds PI pi -. if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch -. if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch -. ds L" "" -. ds R" "" -. ds C` "" -. ds C' "" -'br\} -.el\{\ -. ds -- \|\(em\| -. ds PI \(*p -. ds L" `` -. ds R" '' -'br\} -.\" -.\" Escape single quotes in literal strings from groff's Unicode transform. -.ie \n(.g .ds Aq \(aq -.el .ds Aq ' -.\" -.\" If the F register is turned on, we'll generate index entries on stderr for -.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index -.\" entries marked with X<> in POD. Of course, you'll have to process the -.\" output yourself in some meaningful fashion. -.ie \nF \{\ -. de IX -. tm Index:\\$1\t\\n%\t"\\$2" -.. -. nr % 0 -. rr F -.\} -.el \{\ -. de IX -.. -.\} -.\" -.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2). -.\" Fear. Run. Save yourself. No user-serviceable parts. -. \" fudge factors for nroff and troff -.if n \{\ -. ds #H 0 -. ds #V .8m -. ds #F .3m -. ds #[ \f1 -. ds #] \fP -.\} -.if t \{\ -. ds #H ((1u-(\\\\n(.fu%2u))*.13m) -. ds #V .6m -. ds #F 0 -. ds #[ \& -. ds #] \& -.\} -. \" simple accents for nroff and troff -.if n \{\ -. ds ' \& -. ds ` \& -. ds ^ \& -. ds , \& -. ds ~ ~ -. ds / -.\} -.if t \{\ -. ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u" -. ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u' -. ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u' -. ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u' -. ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u' -. ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u' -.\} -. \" troff and (daisy-wheel) nroff accents -.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V' -.ds 8 \h'\*(#H'\(*b\h'-\*(#H' -.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#] -.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H' -.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u' -.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#] -.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#] -.ds ae a\h'-(\w'a'u*4/10)'e -.ds Ae A\h'-(\w'A'u*4/10)'E -. \" corrections for vroff -.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u' -.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u' -. \" for low resolution devices (crt and lpr) -.if \n(.H>23 .if \n(.V>19 \ -\{\ -. ds : e -. ds 8 ss -. ds o a -. ds d- d\h'-1'\(ga -. ds D- D\h'-1'\(hy -. ds th \o'bp' -. ds Th \o'LP' -. ds ae ae -. ds Ae AE -.\} -.rm #[ #] #H #V #F C -.\" ======================================================================== -.\" -.IX Title "Data::YAML::Writer 3" -.TH Data::YAML::Writer 3 "2009-03-08" "perl v5.10.1" "User Contributed Perl Documentation" -.\" For nroff, turn off justification. Always turn off hyphenation; it makes -.\" way too many mistakes in technical documents. -.if n .ad l -.nh -.SH "NAME" -Data::YAML::Writer \- Easy YAML serialisation -.SH "VERSION" -.IX Header "VERSION" -This document describes Data::YAML::Writer version 0.0.6 -.SH "SYNOPSIS" -.IX Header "SYNOPSIS" -.Vb 1 -\& use Data::YAML::Writer; -\& -\& my $data = { -\& one => 1, -\& two => 2, -\& three => [ 1, 2, 3 ], -\& }; -\& -\& my $yw = Data::YAML::Writer\->new; -\& -\& # Write to an array... -\& $yw\->write( $data, \e@some_array ); -\& -\& # ...an open file handle... -\& $yw\->write( $data, $some_file_handle ); -\& -\& # ...a string ... -\& $yw\->write( $data, \e$some_string ); -\& -\& # ...or a closure -\& $yw\->write( $data, sub { -\& my $line = shift; -\& print "$line\en"; -\& } ); -.Ve -.SH "DESCRIPTION" -.IX Header "DESCRIPTION" -Encodes a scalar, hash reference or array reference as \s-1YAML\s0. -.PP -In the spirit of YAML::Tiny this is a lightweight, dependency-free -\&\s-1YAML\s0 writer. While \f(CW\*(C`YAML::Tiny\*(C'\fR is designed principally for working -with configuration files \f(CW\*(C`Data::YAML\*(C'\fR concentrates on the transparent -round-tripping of \s-1YAML\s0 serialized Perl data structures. -.PP -The syntax produced by \f(CW\*(C`Data::YAML::Writer\*(C'\fR is a subset of \s-1YAML\s0. -Specifically it is the same subset of \s-1YAML\s0 that Data::YAML::Reader -consumes. See Data::YAML for more information. -.SH "INTERFACE" -.IX Header "INTERFACE" -.ie n .IP """new""" 4 -.el .IP "\f(CWnew\fR" 4 -.IX Item "new" -The constructor \f(CW\*(C`new\*(C'\fR creates and returns an empty \f(CW\*(C`Data::YAML::Writer\*(C'\fR object. -.ie n .IP """write( $obj, $output )""" 4 -.el .IP "\f(CWwrite( $obj, $output )\fR" 4 -.IX Item "write( $obj, $output )" -Encode a scalar, hash reference or array reference as \s-1YAML\s0. -.Sp -.Vb 4 -\& my $writer = sub { -\& my $line = shift; -\& print SOMEFILE "$line\en"; -\& }; -\& -\& my $data = { -\& one => 1, -\& two => 2, -\& three => [ 1, 2, 3 ], -\& }; -\& -\& my $yw = Data::YAML::Writer\->new; -\& $yw\->write( $data, $writer ); -.Ve -.Sp -The \f(CW $output \fR argument may be -.RS 4 -.IP "\(bu" 4 -a reference to a scalar to append \s-1YAML\s0 to -.IP "\(bu" 4 -the handle of an open file -.IP "\(bu" 4 -a reference to an array into which \s-1YAML\s0 will be pushed -.IP "\(bu" 4 -a code reference -.RE -.RS 4 -.Sp -If you supply a code reference the subroutine will be called once for -each line of output with the line as its only argument. Passed lines -will have no trailing newline. -.RE -.SH "BUGS AND LIMITATIONS" -.IX Header "BUGS AND LIMITATIONS" -No bugs have been reported. -.PP -Please report any bugs or feature requests to -\&\f(CW\*(C`data\-yaml@rt.cpan.org\*(C'\fR, or through the web interface at -<http://rt.cpan.org>. -.SH "SEE ALSO" -.IX Header "SEE ALSO" -YAML::Tiny, \s-1YAML\s0, YAML::Syck, Config::Tiny, CSS::Tiny -.SH "AUTHOR" -.IX Header "AUTHOR" -Andy Armstrong \f(CW\*(C`<andy@hexten.net>\*(C'\fR -.SH "LICENCE AND COPYRIGHT" -.IX Header "LICENCE AND COPYRIGHT" -Copyright (c) 2007, Andy Armstrong \f(CW\*(C`<andy@hexten.net>\*(C'\fR. All rights reserved. -.PP -This module is free software; you can redistribute it and/or -modify it under the same terms as Perl itself. See perlartistic. -.SH "DISCLAIMER OF WARRANTY" -.IX Header "DISCLAIMER OF WARRANTY" -\&\s-1BECAUSE\s0 \s-1THIS\s0 \s-1SOFTWARE\s0 \s-1IS\s0 \s-1LICENSED\s0 \s-1FREE\s0 \s-1OF\s0 \s-1CHARGE\s0, \s-1THERE\s0 \s-1IS\s0 \s-1NO\s0 \s-1WARRANTY\s0 -\&\s-1FOR\s0 \s-1THE\s0 \s-1SOFTWARE\s0, \s-1TO\s0 \s-1THE\s0 \s-1EXTENT\s0 \s-1PERMITTED\s0 \s-1BY\s0 \s-1APPLICABLE\s0 \s-1LAW\s0. \s-1EXCEPT\s0 \s-1WHEN\s0 -\&\s-1OTHERWISE\s0 \s-1STATED\s0 \s-1IN\s0 \s-1WRITING\s0 \s-1THE\s0 \s-1COPYRIGHT\s0 \s-1HOLDERS\s0 \s-1AND/OR\s0 \s-1OTHER\s0 \s-1PARTIES\s0 -\&\s-1PROVIDE\s0 \s-1THE\s0 \s-1SOFTWARE\s0 \*(L"\s-1AS\s0 \s-1IS\s0\*(R" \s-1WITHOUT\s0 \s-1WARRANTY\s0 \s-1OF\s0 \s-1ANY\s0 \s-1KIND\s0, \s-1EITHER\s0 -\&\s-1EXPRESSED\s0 \s-1OR\s0 \s-1IMPLIED\s0, \s-1INCLUDING\s0, \s-1BUT\s0 \s-1NOT\s0 \s-1LIMITED\s0 \s-1TO\s0, \s-1THE\s0 \s-1IMPLIED\s0 -\&\s-1WARRANTIES\s0 \s-1OF\s0 \s-1MERCHANTABILITY\s0 \s-1AND\s0 \s-1FITNESS\s0 \s-1FOR\s0 A \s-1PARTICULAR\s0 \s-1PURPOSE\s0. \s-1THE\s0 -\&\s-1ENTIRE\s0 \s-1RISK\s0 \s-1AS\s0 \s-1TO\s0 \s-1THE\s0 \s-1QUALITY\s0 \s-1AND\s0 \s-1PERFORMANCE\s0 \s-1OF\s0 \s-1THE\s0 \s-1SOFTWARE\s0 \s-1IS\s0 \s-1WITH\s0 -\&\s-1YOU\s0. \s-1SHOULD\s0 \s-1THE\s0 \s-1SOFTWARE\s0 \s-1PROVE\s0 \s-1DEFECTIVE\s0, \s-1YOU\s0 \s-1ASSUME\s0 \s-1THE\s0 \s-1COST\s0 \s-1OF\s0 \s-1ALL\s0 -\&\s-1NECESSARY\s0 \s-1SERVICING\s0, \s-1REPAIR\s0, \s-1OR\s0 \s-1CORRECTION\s0. -.PP -\&\s-1IN\s0 \s-1NO\s0 \s-1EVENT\s0 \s-1UNLESS\s0 \s-1REQUIRED\s0 \s-1BY\s0 \s-1APPLICABLE\s0 \s-1LAW\s0 \s-1OR\s0 \s-1AGREED\s0 \s-1TO\s0 \s-1IN\s0 \s-1WRITING\s0 -\&\s-1WILL\s0 \s-1ANY\s0 \s-1COPYRIGHT\s0 \s-1HOLDER\s0, \s-1OR\s0 \s-1ANY\s0 \s-1OTHER\s0 \s-1PARTY\s0 \s-1WHO\s0 \s-1MAY\s0 \s-1MODIFY\s0 \s-1AND/OR\s0 -\&\s-1REDISTRIBUTE\s0 \s-1THE\s0 \s-1SOFTWARE\s0 \s-1AS\s0 \s-1PERMITTED\s0 \s-1BY\s0 \s-1THE\s0 \s-1ABOVE\s0 \s-1LICENCE\s0, \s-1BE\s0 -\&\s-1LIABLE\s0 \s-1TO\s0 \s-1YOU\s0 \s-1FOR\s0 \s-1DAMAGES\s0, \s-1INCLUDING\s0 \s-1ANY\s0 \s-1GENERAL\s0, \s-1SPECIAL\s0, \s-1INCIDENTAL\s0, -\&\s-1OR\s0 \s-1CONSEQUENTIAL\s0 \s-1DAMAGES\s0 \s-1ARISING\s0 \s-1OUT\s0 \s-1OF\s0 \s-1THE\s0 \s-1USE\s0 \s-1OR\s0 \s-1INABILITY\s0 \s-1TO\s0 \s-1USE\s0 -\&\s-1THE\s0 \s-1SOFTWARE\s0 (\s-1INCLUDING\s0 \s-1BUT\s0 \s-1NOT\s0 \s-1LIMITED\s0 \s-1TO\s0 \s-1LOSS\s0 \s-1OF\s0 \s-1DATA\s0 \s-1OR\s0 \s-1DATA\s0 \s-1BEING\s0 -\&\s-1RENDERED\s0 \s-1INACCURATE\s0 \s-1OR\s0 \s-1LOSSES\s0 \s-1SUSTAINED\s0 \s-1BY\s0 \s-1YOU\s0 \s-1OR\s0 \s-1THIRD\s0 \s-1PARTIES\s0 \s-1OR\s0 A -\&\s-1FAILURE\s0 \s-1OF\s0 \s-1THE\s0 \s-1SOFTWARE\s0 \s-1TO\s0 \s-1OPERATE\s0 \s-1WITH\s0 \s-1ANY\s0 \s-1OTHER\s0 \s-1SOFTWARE\s0), \s-1EVEN\s0 \s-1IF\s0 -\&\s-1SUCH\s0 \s-1HOLDER\s0 \s-1OR\s0 \s-1OTHER\s0 \s-1PARTY\s0 \s-1HAS\s0 \s-1BEEN\s0 \s-1ADVISED\s0 \s-1OF\s0 \s-1THE\s0 \s-1POSSIBILITY\s0 \s-1OF\s0 -\&\s-1SUCH\s0 \s-1DAMAGES\s0. diff --git a/Data-YAML-0.0.6/blib/script/.exists b/Data-YAML-0.0.6/blib/script/.exists deleted file mode 100644 index e69de29..0000000 --- a/Data-YAML-0.0.6/blib/script/.exists +++ /dev/null diff --git a/Data-YAML-0.0.6/lib/Data/YAML.pm b/Data-YAML-0.0.6/lib/Data/YAML.pm deleted file mode 100644 index dd6716b..0000000 --- a/Data-YAML-0.0.6/lib/Data/YAML.pm +++ /dev/null @@ -1,145 +0,0 @@ -package Data::YAML; - -use strict; -use warnings; - -use vars qw{$VERSION}; - -$VERSION = '0.0.6'; - -1; - -__END__ - -=head1 NAME - -Data::YAML - Easy YAML serialisation of Perl data structures - -=head1 VERSION - -This document describes Data::YAML version 0.0.6 - -=head1 DESCRIPTION - -In the spirit of L<YAML::Tiny>, L<Data::YAML::Reader> and -L<Data::YAML::Writer> provide lightweight, dependency-free YAML -handling. While C<YAML::Tiny> is designed principally for working with -configuration files C<Data::YAML> concentrates on the transparent round- -tripping of YAML serialized Perl data structures. - -As an example of why this distinction matters consider that -C<YAML::Tiny> doesn't handle hashes with keys containing non-printable -characters. This is fine for configuration files but likely to cause -problems when handling arbitrary Perl data structures. C<Data::YAML> -handles exotic hash keys correctly. - -The syntax accepted by C<Data::YAML> is a subset of YAML. Specifically -it is the same subset of YAML that L<Data::YAML::Writer> produces. See -L<Data::YAML> for more information. - -=head2 YAML syntax - -Although YAML appears to be a simple language the entire YAML -specification is huge. C<Data::YAML> implements a small subset of the -complete syntax trading completeness for compactness and simplicity. -This restricted syntax is known (to me at least) as 'YAMLish'. - -These examples demonstrates the full range of supported syntax. - -All YAML documents must begin with '---' and end with a line -containing '...'. - - --- Simple scalar - ... - -Unprintable characters are represented using standard escapes in double -quoted strings. - - --- "\t\x01\x02\n" - ... - -Array and hashes are represented thusly - - --- - - "This" - - "is" - - "an" - - "array" - ... - - --- - This: is - a: hash - ... - -Structures may nest arbitrarily - - --- - - - name: 'Hash one' - value: 1 - - - name: 'Hash two' - value: 2 - ... - -Undef is a tilde - - --- ~ - ... - -=head2 Uses - -Use C<Data::YAML> may be used any time you need to freeze and thaw Perl -data structures into a human readable format. The output from -C<Data::YAML::Writer> should be readable by any YAML parser. - -C<Data::YAML> was originally written to allow machine-readable -diagnostic information to be passed from test scripts to -L<TAP::Harness>. That means that if you're writing a testing system that -needs to output TAP version 13 or later syntax you might find -C<Data::YAML> useful. - -Read more about TAP and YAMLish here: L<http://testanything.org/wiki> - -=head1 BUGS AND LIMITATIONS - -No bugs have been reported. - -Please report any bugs or feature requests to -C<data-yaml@rt.cpan.org>, or through the web interface at -L<http://rt.cpan.org>. - -=head1 AUTHOR - -Andy Armstrong C<< <andy@hexten.net> >> - -=head1 LICENCE AND COPYRIGHT - -Copyright (c) 2007, Andy Armstrong C<< <andy@hexten.net> >>. All rights reserved. - -This module is free software; you can redistribute it and/or -modify it under the same terms as Perl itself. See L<perlartistic>. - -=head1 DISCLAIMER OF WARRANTY - -BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY -FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN -OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES -PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER -EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED -WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE -ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH -YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL -NECESSARY SERVICING, REPAIR, OR CORRECTION. - -IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING -WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR -REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENCE, BE -LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL, -OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE -THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING -RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A -FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF -SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF -SUCH DAMAGES. diff --git a/Data-YAML-0.0.6/lib/Data/YAML/Reader.pm b/Data-YAML-0.0.6/lib/Data/YAML/Reader.pm deleted file mode 100644 index dbd5189..0000000 --- a/Data-YAML-0.0.6/lib/Data/YAML/Reader.pm +++ /dev/null @@ -1,422 +0,0 @@ -package Data::YAML::Reader; - -use strict; -use warnings; -use Carp; - -use vars qw{$VERSION}; - -$VERSION = '0.0.6'; - -# TODO: -# Handle blessed object syntax - -# Printable characters for escapes -my %UNESCAPES = ( - z => "\x00", - a => "\x07", - t => "\x09", - n => "\x0a", - v => "\x0b", - f => "\x0c", - r => "\x0d", - e => "\x1b", - '\\' => '\\', -); - -my $QQ_STRING = qr{ " (?:\\. | [^"])* " }x; -my $HASH_LINE = qr{ ^ ($QQ_STRING|\S+) \s* : (?: \s+ (.+?) \s* )? $ }x; -my $IS_HASH_KEY = qr{ ^ [\w\'\"] }x; -my $IS_END_YAML = qr{ ^ [.][.][.] \s* $ }x; -my $IS_QQ_STRING = qr{ ^ $QQ_STRING $ }x; - -# Create an empty Data::YAML::Reader object -sub new { - my $class = shift; - bless {}, $class; -} - -sub _make_reader { - my $self = shift; - my $obj = shift; - - croak "Must have something to read from" - unless defined $obj; - - if ( my $ref = ref $obj ) { - if ( 'CODE' eq $ref ) { - return $obj; - } - elsif ( 'ARRAY' eq $ref ) { - return sub { shift @$obj }; - } - elsif ( 'SCALAR' eq $ref ) { - return $self->_make_reader( $$obj ); - } - elsif ( 'GLOB' eq $ref || 'IO::Handle' eq $ref ) { - return sub { - my $line = <$obj>; - chomp $line if defined $line; - return $line; - }; - } - croak "Don't know how to read $ref"; - } - else { - my @lines = split( /\n/, $obj ); - return sub { shift @lines }; - } -} - -sub read { - my $self = shift; - my $obj = shift; - - $self->{reader} = $self->_make_reader( $obj ); - $self->{capture} = []; - - #Â Prime the reader - $self->_next; - - my $doc = $self->_read; - - # The terminator is mandatory otherwise we'd consume a line from the - # iterator that doesn't belong to us. If we want to remove this - # restriction we'll have to implement look-ahead in the iterators. - # Which might not be a bad idea. - my $dots = $self->_peek; - croak "Missing '...' at end of YAML" - unless $dots =~ $IS_END_YAML; - - delete $self->{reader}; - delete $self->{next}; - - return $doc; -} - -sub get_raw { - my $self = shift; - - if ( defined( my $capture = $self->{capture} ) ) { - return join( "\n", @$capture ) . "\n"; - } - - return ''; -} - -sub _peek { - my $self = shift; - return $self->{next} unless wantarray; - my $line = $self->{next}; - $line =~ /^ (\s*) (.*) $ /x; - return ( $2, length $1 ); -} - -sub _next { - my $self = shift; - croak "_next called with no reader" - unless $self->{reader}; - my $line = $self->{reader}->(); - $self->{next} = $line; - push @{ $self->{capture} }, $line; -} - -sub _read { - my $self = shift; - - my $line = $self->_peek; - - # Do we have a document header? - if ( $line =~ /^ --- (?: \s* (.+?) \s* )? $/x ) { - $self->_next; - - return $self->_read_scalar( $1 ) if defined $1; # Inline? - - my ( $next, $indent ) = $self->_peek; - - if ( $next =~ /^ - /x ) { - return $self->_read_array( $indent ); - } - elsif ( $next =~ $IS_HASH_KEY ) { - return $self->_read_hash( $next, $indent ); - } - elsif ( $next =~ $IS_END_YAML ) { - croak "Premature end of YAML"; - } - else { - croak "Unsupported YAML syntax: '$next'"; - } - } - else { - croak "YAML document header not found"; - } -} - -# Parse a double quoted string -sub _read_qq { - my $self = shift; - my $str = shift; - - unless ( $str =~ s/^ " (.*?) " $/$1/x ) { - die "Internal: not a quoted string"; - } - - $str =~ s/\\"/"/gx; - $str =~ s/ \\ ( [tartan\\favez] | x([0-9a-fA-F]{2}) ) - / (length($1) > 1) ? pack("H2", $2) : $UNESCAPES{$1} /gex; - return $str; -} - -# Parse a scalar string to the actual scalar -sub _read_scalar { - my $self = shift; - my $string = shift; - - return undef if $string eq '~'; - - if ( $string eq '>' || $string eq '|' ) { - - my ( $line, $indent ) = $self->_peek; - die "Multi-line scalar content missing" unless defined $line; - - my @multiline = ( $line ); - - while ( 1 ) { - $self->_next; - my ( $next, $ind ) = $self->_peek; - last if $ind < $indent; - push @multiline, $next; - } - - return join( ( $string eq '>' ? ' ' : "\n" ), @multiline ) . "\n"; - } - - if ( $string =~ /^ ' (.*) ' $/x ) { - ( my $rv = $1 ) =~ s/''/'/g; - return $rv; - } - - if ( $string =~ $IS_QQ_STRING ) { - return $self->_read_qq( $string ); - } - - if ( $string =~ /^['"]/ ) { - - # A quote with folding... we don't support that - die __PACKAGE__ . " does not support multi-line quoted scalars"; - } - - # Regular unquoted string - return $string; -} - -sub _read_nested { - my $self = shift; - - my ( $line, $indent ) = $self->_peek; - - if ( $line =~ /^ -/x ) { - return $self->_read_array( $indent ); - } - elsif ( $line =~ $IS_HASH_KEY ) { - return $self->_read_hash( $line, $indent ); - } - else { - croak "Unsupported YAML syntax: '$line'"; - } -} - -# Parse an array -sub _read_array { - my ( $self, $limit ) = @_; - - my $ar = []; - - while ( 1 ) { - my ( $line, $indent ) = $self->_peek; - last if $indent < $limit || !defined $line || $line =~ $IS_END_YAML; - - if ( $indent > $limit ) { - croak "Array line over-indented"; - } - - if ( $line =~ /^ (- \s+) \S+ \s* : (?: \s+ | $ ) /x ) { - $indent += length $1; - $line =~ s/-\s+//; - push @$ar, $self->_read_hash( $line, $indent ); - } - elsif ( $line =~ /^ - \s* (.+?) \s* $/x ) { - croak "Unexpected start of YAML" if $line =~ /^---/; - $self->_next; - push @$ar, $self->_read_scalar( $1 ); - } - elsif ( $line =~ /^ - \s* $/x ) { - $self->_next; - push @$ar, $self->_read_nested; - } - elsif ( $line =~ $IS_HASH_KEY ) { - $self->_next; - push @$ar, $self->_read_hash( $line, $indent, ); - } - else { - croak "Unsupported YAML syntax: '$line'"; - } - } - - return $ar; -} - -sub _read_hash { - my ( $self, $line, $limit ) = @_; - - my $indent; - my $hash = {}; - - while ( 1 ) { - croak "Badly formed hash line: '$line'" - unless $line =~ $HASH_LINE; - - my ( $key, $value ) = ( $self->_read_scalar( $1 ), $2 ); - $self->_next; - - if ( defined $value ) { - $hash->{$key} = $self->_read_scalar( $value ); - } - else { - $hash->{$key} = $self->_read_nested; - } - - ( $line, $indent ) = $self->_peek; - last if $indent < $limit || !defined $line || $line =~ $IS_END_YAML; - } - - return $hash; -} - -1; - -__END__ - -=head1 NAME - -Data::YAML::Reader - Parse YAML created by Data::YAML::Writer - -=head1 VERSION - -This document describes Data::YAML::Reader version 0.0.6 - -=head1 SYNOPSIS - - use Data::YAML::Reader; - - my $yr = Data::YAML::Reader->new; - - # Read from an array... - my $from_array = $yr->read( \@some_array ); - - # ...an open file handle... - my $from_handle = $yr->read( $some_file ); - - # ...a string containing YAML... - my $from_string = $yr->read( $some_string ); - - # ...or a closure - my $from_code = $yr->read( sub { return get_next_line() } ); - -=head1 DESCRIPTION - -In the spirit of L<YAML::Tiny> this is a lightweight, dependency-free -YAML reader. While C<YAML::Tiny> is designed principally for working -with configuration files C<Data::YAML> concentrates on the transparent -round-tripping of YAML serialized Perl data structures. - -The syntax accepted by C<Data::YAML::Reader> is a subset of YAML. -Specifically it is the same subset of YAML that L<Data::YAML::Writer> -produces. See L<Data::YAML> for more information. - -=head1 INTERFACE - -=over - -=item C<< new >> - -Creates and returns an empty C<Data::YAML::Reader> object. No options may be passed. - -=item C<< read( $source ) >> - -Read YAML and return the data structure it represents. The YAML data may be supplied by a - -=over - -=item * scalar string containing YAML source - -=item * the handle of an open file - -=item * a reference to an array of lines - -=item * a code reference - -=back - -In the case of a code reference a subroutine (most likely a closure) -that returns successive lines of YAML must be supplied. Lines should -have no trailing newline. When the YAML is exhausted the subroutine must -return undef. - -Returns the data structure (specifically either a scalar, hash ref or -array ref) that results from decoding the YAML. - -=item C<< get_raw >> - -Return the raw YAML source from the most recent C<read>. - -=back - -=head1 BUGS AND LIMITATIONS - -No bugs have been reported. - -Please report any bugs or feature requests to -C<data-yaml@rt.cpan.org>, or through the web interface at -L<http://rt.cpan.org>. - -=head1 SEE ALSO - -L<YAML::Tiny>, L<YAML>, L<YAML::Syck>, L<Config::Tiny>, L<CSS::Tiny> - -=head1 AUTHOR - -Andy Armstrong C<< <andy@hexten.net> >> - -Adam Kennedy wrote L<YAML::Tiny> which provided the template and many of -the YAML matching regular expressions for this module. - -=head1 LICENCE AND COPYRIGHT - -Copyright (c) 2007, Andy Armstrong C<< <andy@hexten.net> >>. All rights reserved. - -This module is free software; you can redistribute it and/or -modify it under the same terms as Perl itself. See L<perlartistic>. - -=head1 DISCLAIMER OF WARRANTY - -BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY -FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN -OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES -PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER -EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED -WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE -ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH -YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL -NECESSARY SERVICING, REPAIR, OR CORRECTION. - -IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING -WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR -REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENCE, BE -LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL, -OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE -THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING -RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A -FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF -SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF -SUCH DAMAGES. diff --git a/Data-YAML-0.0.6/lib/Data/YAML/Writer.pm b/Data-YAML-0.0.6/lib/Data/YAML/Writer.pm deleted file mode 100644 index abce670..0000000 --- a/Data-YAML-0.0.6/lib/Data/YAML/Writer.pm +++ /dev/null @@ -1,269 +0,0 @@ -package Data::YAML::Writer; - -use strict; -use warnings; -use Carp; - -use vars qw{$VERSION}; - -$VERSION = '0.0.6'; - -my $ESCAPE_CHAR = qr{ [\x00-\x1f\"] }x; - -my @UNPRINTABLE = qw( - z x01 x02 x03 x04 x05 x06 a - x08 t n v f r x0e x0f - x10 x11 x12 x13 x14 x15 x16 x17 - x18 x19 x1a e x1c x1d x1e x1f -); - -# Create an empty Data::YAML::Writer object -sub new { - my $class = shift; - bless {}, $class; -} - -sub write { - my $self = shift; - - croak "Need something to write" - unless @_; - - my $obj = shift; - my $out = shift || \*STDOUT; - - croak "Need a reference to something I can write to" - unless ref $out; - - $self->{writer} = $self->_make_writer( $out ); - - $self->_write_obj( '---', $obj ); - $self->_put( '...' ); - - delete $self->{writer}; -} - -sub _make_writer { - my $self = shift; - my $out = shift; - - my $ref = ref $out; - - if ( 'CODE' eq $ref ) { - return $out; - } - elsif ( 'ARRAY' eq $ref ) { - return sub { push @$out, shift }; - } - elsif ( 'SCALAR' eq $ref ) { - return sub { $$out .= shift() . "\n" }; - } - elsif ( 'GLOB' eq $ref || 'IO::Handle' eq $ref ) { - return sub { print $out shift(), "\n" }; - } - - croak "Can't write to $out"; -} - -sub _put { - my $self = shift; - $self->{writer}->( join '', @_ ); -} - -sub _enc_scalar { - my $self = shift; - my $val = shift; - - return '~' unless defined $val; - - if ( $val =~ /$ESCAPE_CHAR/ ) { - $val =~ s/\\/\\\\/g; - $val =~ s/"/\\"/g; - $val =~ s/ ( [\x00-\x1f] ) / '\\' . $UNPRINTABLE[ ord($1) ] /gex; - return qq{"$val"}; - } - - if ( length( $val ) == 0 or $val =~ /\s/ ) { - $val =~ s/'/''/; - return "'$val'"; - } - - return $val; -} - -sub _write_obj { - my $self = shift; - my $prefix = shift; - my $obj = shift; - my $indent = shift || 0; - - if ( my $ref = ref $obj ) { - my $pad = ' ' x $indent; - $self->_put( $prefix ); - if ( 'HASH' eq $ref ) { - for my $key ( sort keys %$obj ) { - my $value = $obj->{$key}; - $self->_write_obj( $pad . $self->_enc_scalar( $key ) . ':', - $value, $indent + 1 ); - } - } - elsif ( 'ARRAY' eq $ref ) { - for my $value ( @$obj ) { - $self->_write_obj( $pad . '-', $value, $indent + 1 ); - } - } - else { - croak "Don't know how to encode $ref"; - } - } - else { - $self->_put( $prefix, ' ', $self->_enc_scalar( $obj ) ); - } -} - -1; - -__END__ - - -=head1 NAME - -Data::YAML::Writer - Easy YAML serialisation - -=head1 VERSION - -This document describes Data::YAML::Writer version 0.0.6 - -=head1 SYNOPSIS - - use Data::YAML::Writer; - - my $data = { - one => 1, - two => 2, - three => [ 1, 2, 3 ], - }; - - my $yw = Data::YAML::Writer->new; - - # Write to an array... - $yw->write( $data, \@some_array ); - - # ...an open file handle... - $yw->write( $data, $some_file_handle ); - - # ...a string ... - $yw->write( $data, \$some_string ); - - # ...or a closure - $yw->write( $data, sub { - my $line = shift; - print "$line\n"; - } ); - - -=head1 DESCRIPTION - -Encodes a scalar, hash reference or array reference as YAML. - -In the spirit of L<YAML::Tiny> this is a lightweight, dependency-free -YAML writer. While C<YAML::Tiny> is designed principally for working -with configuration files C<Data::YAML> concentrates on the transparent -round-tripping of YAML serialized Perl data structures. - -The syntax produced by C<Data::YAML::Writer> is a subset of YAML. -Specifically it is the same subset of YAML that L<Data::YAML::Reader> -consumes. See L<Data::YAML> for more information. - -=head1 INTERFACE - -=over - -=item C<< new >> - -The constructor C<new> creates and returns an empty C<Data::YAML::Writer> object. - -=item C<< write( $obj, $output ) >> - -Encode a scalar, hash reference or array reference as YAML. - - my $writer = sub { - my $line = shift; - print SOMEFILE "$line\n"; - }; - - my $data = { - one => 1, - two => 2, - three => [ 1, 2, 3 ], - }; - - my $yw = Data::YAML::Writer->new; - $yw->write( $data, $writer ); - - -The C< $output > argument may be - -=over - -=item * a reference to a scalar to append YAML to - -=item * the handle of an open file - -=item * a reference to an array into which YAML will be pushed - -=item * a code reference - -=back - -If you supply a code reference the subroutine will be called once for -each line of output with the line as its only argument. Passed lines -will have no trailing newline. - -=back - -=head1 BUGS AND LIMITATIONS - -No bugs have been reported. - -Please report any bugs or feature requests to -C<data-yaml@rt.cpan.org>, or through the web interface at -L<http://rt.cpan.org>. - -=head1 SEE ALSO - -L<YAML::Tiny>, L<YAML>, L<YAML::Syck>, L<Config::Tiny>, L<CSS::Tiny> - -=head1 AUTHOR - -Andy Armstrong C<< <andy@hexten.net> >> - -=head1 LICENCE AND COPYRIGHT - -Copyright (c) 2007, Andy Armstrong C<< <andy@hexten.net> >>. All rights reserved. - -This module is free software; you can redistribute it and/or -modify it under the same terms as Perl itself. See L<perlartistic>. - -=head1 DISCLAIMER OF WARRANTY - -BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY -FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN -OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES -PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER -EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED -WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE -ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH -YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL -NECESSARY SERVICING, REPAIR, OR CORRECTION. - -IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING -WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR -REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENCE, BE -LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL, -OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE -THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING -RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A -FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF -SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF -SUCH DAMAGES. diff --git a/Data-YAML-0.0.6/pm_to_blib b/Data-YAML-0.0.6/pm_to_blib deleted file mode 100644 index e69de29..0000000 --- a/Data-YAML-0.0.6/pm_to_blib +++ /dev/null diff --git a/Data-YAML-0.0.6/t/00.load.t b/Data-YAML-0.0.6/t/00.load.t deleted file mode 100644 index 4b0baad..0000000 --- a/Data-YAML-0.0.6/t/00.load.t +++ /dev/null @@ -1,8 +0,0 @@ -use Test::More tests => 2; - -BEGIN { - use_ok( 'Data::YAML::Reader' ); - use_ok( 'Data::YAML::Writer' ); -} - -diag( "Testing Data::YAML $Data::YAML::Reader::VERSION" ); diff --git a/Data-YAML-0.0.6/t/10-input.t b/Data-YAML-0.0.6/t/10-input.t deleted file mode 100644 index 70b230e..0000000 --- a/Data-YAML-0.0.6/t/10-input.t +++ /dev/null @@ -1,103 +0,0 @@ -use strict; -use warnings; -use Test::More tests => 12; -use Data::Dumper; - -use Data::YAML::Reader; - -my $in = [ - "---", - "bill-to:", - " address:", - " city: \"Royal Oak\"", - " lines: \"458 Walkman Dr.\\nSuite #292\\n\"", - " postal: 48046", - " state: MI", - " family: Dumars", - " given: Chris", - "comments: \"Late afternoon is best. Backup contact is Nancy Billsmer \@ 338-4338\\n\"", - "date: 2001-01-23", - "invoice: 34843", - "product:", - " -", - " description: Basketball", - " price: 450.00", - " quantity: 4", - " sku: BL394D", - " -", - " description: \"Super Hoop\"", - " price: 2392.00", - " quantity: 1", - " sku: BL4438H", - "tax: 251.42", - "total: 4443.52", - "...", -]; - -my $out = { - 'bill-to' => { - 'given' => 'Chris', - 'address' => { - 'city' => 'Royal Oak', - 'postal' => '48046', - 'lines' => "458 Walkman Dr.\nSuite #292\n", - 'state' => 'MI' - }, - 'family' => 'Dumars' - }, - 'invoice' => '34843', - 'date' => '2001-01-23', - 'tax' => '251.42', - 'product' => [ - { - 'sku' => 'BL394D', - 'quantity' => '4', - 'price' => '450.00', - 'description' => 'Basketball' - }, - { - 'sku' => 'BL4438H', - 'quantity' => '1', - 'price' => '2392.00', - 'description' => 'Super Hoop' - } - ], - 'comments' => - "Late afternoon is best. Backup contact is Nancy Billsmer @ 338-4338\n", - 'total' => '4443.52' -}; - -my @lines = @$in; -my $scalar = join( "\n", @lines ) . "\n"; - -my @source = ( - { - name => 'Array reference', - source => $in, - }, - { - name => 'Closure', - source => sub { shift @lines }, - }, - { - name => 'Scalar', - source => $scalar, - }, - { - name => 'Scalar ref', - source => \$scalar, - }, -); - -for my $src ( @source ) { - my $name = $src->{name}; - ok my $yaml = Data::YAML::Reader->new, "$name: Created"; - isa_ok $yaml, 'Data::YAML::Reader'; - - my $got = eval { $yaml->read( $src->{source} ) }; - unless ( is_deeply $got, $out, "$name: Result matches" ) { - local $Data::Dumper::Useqq = $Data::Dumper::Useqq = 1; - diag( Data::Dumper->Dump( [$got], ['$got'] ) ); - diag( Data::Dumper->Dump( [$out], ['$expected'] ) ); - } -} diff --git a/Data-YAML-0.0.6/t/20-reader.t b/Data-YAML-0.0.6/t/20-reader.t deleted file mode 100644 index fc6806f..0000000 --- a/Data-YAML-0.0.6/t/20-reader.t +++ /dev/null @@ -1,419 +0,0 @@ -use strict; -use warnings; -use Test::More; -use Data::Dumper; - -use Data::YAML::Reader; - -my @SCHEDULE; - -BEGIN { - @SCHEDULE = ( - { - name => 'Hello World', - in => [ '--- Hello, World', '...', ], - out => "Hello, World", - }, - { - name => 'Hello World 2', - in => [ '--- \'Hello, \'\'World\'', '...', ], - out => "Hello, 'World", - }, - { - name => 'Hello World 3', - in => [ '--- "Hello, World"', '...', ], - out => "Hello, World", - }, - { - name => 'Hello World 4', - in => [ '--- "Hello, World"', '...', ], - out => "Hello, World", - }, - { - name => 'Hello World 4', - in => [ '--- >', ' Hello,', ' World', '...', ], - out => "Hello, World\n", - }, - { - name => 'Hello World 5', - in => [ '--- >', ' Hello,', ' World', '...', ], - error => qr{Missing\s+'[.][.][.]'}, - }, - { - name => 'Simple array', - in => [ '---', '- 1', '- 2', '- 3', '...', ], - out => [ '1', '2', '3' ], - }, - { - name => 'Mixed array', - in => [ '---', '- 1', '- \'two\'', '- "three\n"', '...', ], - out => [ '1', 'two', "three\n" ], - }, - { - name => 'Hash in array', - in => [ '---', '- 1', '- two: 2', '- 3', '...', ], - out => [ '1', { two => '2' }, '3' ], - }, - { - name => 'Hash in array 2', - in => [ '---', '- 1', '- two: 2', ' three: 3', '- 4', '...', ], - out => [ '1', { two => '2', three => '3' }, '4' ], - }, - { - name => 'Nested array', - in => [ - '---', - '- one', - '-', - ' - two', - ' -', - ' - three', - ' - four', - '- five', - '...', - ], - out => [ 'one', [ 'two', ['three'], 'four' ], 'five' ], - }, - { - name => 'Nested hash', - in => [ - '---', - 'one:', - ' five: 5', - ' two:', - ' four: 4', - ' three: 3', - 'six: 6', - '...', - ], - out => { - one => { two => { three => '3', four => '4' }, five => '5' }, - six => '6' - }, - }, - - { - name => 'Original YAML::Tiny test', - in => [ - '---', - 'invoice: 34843', - 'date : 2001-01-23', - 'bill-to:', - ' given : Chris', - ' family : Dumars', - ' address:', - ' lines: |', - ' 458 Walkman Dr.', - ' Suite #292', - ' city : Royal Oak', - ' state : MI', - ' postal : 48046', - 'product:', - ' - sku : BL394D', - ' quantity : 4', - ' description : Basketball', - ' price : 450.00', - ' - sku : BL4438H', - ' quantity : 1', - ' description : Super Hoop', - ' price : 2392.00', - 'tax : 251.42', - 'total: 4443.52', - 'comments: >', - ' Late afternoon is best.', - ' Backup contact is Nancy', - ' Billsmer @ 338-4338', - '...', - ], - out => { - 'bill-to' => { - 'given' => 'Chris', - 'address' => { - 'city' => 'Royal Oak', - 'postal' => '48046', - 'lines' => "458 Walkman Dr.\nSuite #292\n", - 'state' => 'MI' - }, - 'family' => 'Dumars' - }, - 'invoice' => '34843', - 'date' => '2001-01-23', - 'tax' => '251.42', - 'product' => [ - { - 'sku' => 'BL394D', - 'quantity' => '4', - 'price' => '450.00', - 'description' => 'Basketball' - }, - { - 'sku' => 'BL4438H', - 'quantity' => '1', - 'price' => '2392.00', - 'description' => 'Super Hoop' - } - ], - 'comments' => - "Late afternoon is best. Backup contact is Nancy Billsmer @ 338-4338\n", - 'total' => '4443.52' - } - }, - - # Tests harvested from YAML::Tiny - { - in => ['...'], - name => 'Regression: empty', - error => qr{document\s+header\s+not\s+found} - }, - { - in => [ '# comment', '...' ], - name => 'Regression: only_comment', - error => qr{document\s+header\s+not\s+found} - }, - { - out => undef, - in => [ '---', '...' ], - name => 'Regression: only_header', - error => qr{Premature\s+end}i, - }, - { - out => undef, - in => [ '---', '---', '...' ], - name => 'Regression: two_header', - error => qr{Unexpected\s+start}i, - }, - { - out => undef, - in => [ '--- ~', '...' ], - name => 'Regression: one_undef' - }, - { - out => undef, - in => [ '--- ~', '...' ], - name => 'Regression: one_undef2' - }, - { - in => [ '--- ~', '---', '...' ], - name => 'Regression: two_undef', - error => qr{Missing\s+'[.][.][.]'}, - }, - { - out => 'foo', - in => [ '--- foo', '...' ], - name => 'Regression: one_scalar', - }, - { - out => 'foo', - in => [ '--- foo', '...' ], - name => 'Regression: one_scalar2', - }, - { - in => [ '--- foo', '--- bar', '...' ], - name => 'Regression: two_scalar', - error => qr{Missing\s+'[.][.][.]'}, - }, - { - out => ['foo'], - in => [ '---', '- foo', '...' ], - name => 'Regression: one_list1' - }, - { - out => [ 'foo', 'bar' ], - in => [ '---', '- foo', '- bar', '...' ], - name => 'Regression: one_list2' - }, - { - out => [ undef, 'bar' ], - in => [ '---', '- ~', '- bar', '...' ], - name => 'Regression: one_listundef' - }, - { - out => { 'foo' => 'bar' }, - in => [ '---', 'foo: bar', '...' ], - name => 'Regression: one_hash1' - }, - { - out => { - 'foo' => 'bar', - 'this' => undef - }, - in => [ '---', 'foo: bar', 'this: ~', '...' ], - name => 'Regression: one_hash2' - }, - { - out => { 'foo' => [ 'bar', undef, 'baz' ] }, - in => [ '---', 'foo:', ' - bar', ' - ~', ' - baz', '...' ], - name => 'Regression: array_in_hash' - }, - { - out => { - 'bar' => { 'foo' => 'bar' }, - 'foo' => undef - }, - in => [ '---', 'foo: ~', 'bar:', ' foo: bar', '...' ], - name => 'Regression: hash_in_hash' - }, - { - out => [ - { - 'foo' => undef, - 'this' => 'that' - }, - 'foo', undef, - { - 'foo' => 'bar', - 'this' => 'that' - } - ], - in => [ - '---', - '-', - ' foo: ~', - ' this: that', - '- foo', - '- ~', - '-', - ' foo: bar', - ' this: that', - '...' - ], - name => 'Regression: hash_in_array' - }, - { - out => ['foo'], - in => [ '---', '- \'foo\'', '...' ], - name => 'Regression: single_quote1' - }, - { - out => [' '], - in => [ '---', '- \' \'', '...' ], - name => 'Regression: single_spaces' - }, - { - out => [''], - in => [ '---', '- \'\'', '...' ], - name => 'Regression: single_null' - }, - { - out => ' ', - in => [ '--- " "', '...' ], - name => 'Regression: only_spaces' - }, - { - out => [ - undef, - { - 'foo' => 'bar', - 'this' => 'that' - }, - 'baz' - ], - in => - [ '---', '- ~', '- foo: bar', ' this: that', '- baz', '...' ], - name => 'Regression: inline_nested_hash' - }, - { - name => "Unprintables", - in => [ - "---", - "- \"\\z\\x01\\x02\\x03\\x04\\x05\\x06\\a\\x08\\t\\n\\v\\f\\r\\x0e\\x0f\"", - "- \"\\x10\\x11\\x12\\x13\\x14\\x15\\x16\\x17\\x18\\x19\\x1a\\e\\x1c\\x1d\\x1e\\x1f\"", - "- \" !\\\"#\$%&'()*+,-./\"", - "- 0123456789:;<=>?", - "- '\@ABCDEFGHIJKLMNO'", - "- 'PQRSTUVWXYZ[\\]^_'", - "- '`abcdefghijklmno'", - "- 'pqrstuvwxyz{|}~\177'", - "- \200\201\202\203\204\205\206\207\210\211\212\213\214\215\216\217", - "- \220\221\222\223\224\225\226\227\230\231\232\233\234\235\236\237", - "- \240\241\242\243\244\245\246\247\250\251\252\253\254\255\256\257", - "- \260\261\262\263\264\265\266\267\270\271\272\273\274\275\276\277", - "- \300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317", - "- \320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337", - "- \340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357", - "- \360\361\362\363\364\365\366\367\370\371\372\373\374\375\376\377", - "..." - ], - out => [ - "\0\1\2\3\4\5\6\a\b\t\n\13\f\r\16\17", - "\20\21\22\23\24\25\26\27\30\31\32\e\34\35\36\37", - " !\"#\$%&'()*+,-./", - "0123456789:;<=>?", - "\@ABCDEFGHIJKLMNO", - "PQRSTUVWXYZ[\\]^_", - "`abcdefghijklmno", - "pqrstuvwxyz{|}~\177", - "\200\201\202\203\204\205\206\207\210\211\212\213\214\215\216\217", - "\220\221\222\223\224\225\226\227\230\231\232\233\234\235\236\237", - "\240\241\242\243\244\245\246\247\250\251\252\253\254\255\256\257", - "\260\261\262\263\264\265\266\267\270\271\272\273\274\275\276\277", - "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317", - "\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337", - "\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357", - "\360\361\362\363\364\365\366\367\370\371\372\373\374\375\376\377" - ], - }, - { - name => 'Quoted hash keys', - in => [ - '---', ' "quoted": Magic!', ' "\n\t": newline, tab', '...', - ], - out => { - quoted => 'Magic!', - "\n\t" => 'newline, tab', - }, - }, - ); - - plan tests => @SCHEDULE * 5; -} - -sub iter { - my $ar = shift; - return sub { - return shift @$ar; - }; -} - -for my $test ( @SCHEDULE ) { - my $name = $test->{name}; - ok my $yaml = Data::YAML::Reader->new, "$name: Created"; - isa_ok $yaml, 'Data::YAML::Reader'; - - # diag "$name\n"; - - # unless ( $test->{in} ) { - # pass for 1 .. 2; - # use YAML; - # diag "Input for test:\n"; - # diag( Dump( $test->{out} ) ); - # next; - # } - - my $source = join( "\n", @{ $test->{in} } ) . "\n"; - - my $iter = iter( $test->{in} ); - my $got = eval { $yaml->read( $iter ) }; - - my $raw = $yaml->get_raw; - - if ( my $err = $test->{error} ) { - unless ( like $@, $err, "$name: Error message" ) { - diag "Error: $@\n"; - } - ok !$got, "$name: No result"; - pass; - } - else { - my $want = $test->{out}; - unless ( ok !$@, "$name: No error" ) { - diag "Error: $@\n"; - } - unless ( is_deeply $got, $want, "$name: Result matches" ) { - local $Data::Dumper::Useqq = $Data::Dumper::Useqq = 1; - diag( Data::Dumper->Dump( [$got], ['$got'] ) ); - diag( Data::Dumper->Dump( [$want], ['$expected'] ) ); - } - is $raw, $source, "$name: Captured source matches"; - } -} diff --git a/Data-YAML-0.0.6/t/30-output.t b/Data-YAML-0.0.6/t/30-output.t deleted file mode 100644 index 56cfb0a..0000000 --- a/Data-YAML-0.0.6/t/30-output.t +++ /dev/null @@ -1,107 +0,0 @@ -use strict; -use warnings; -use Test::More tests => 9; -use Data::Dumper; - -use Data::YAML::Writer; - -my $out = [ - "---", - "bill-to:", - " address:", - " city: 'Royal Oak'", - " lines: \"458 Walkman Dr.\\nSuite #292\\n\"", - " postal: 48046", - " state: MI", - " family: Dumars", - " given: Chris", - "comments: \"Late afternoon is best. Backup contact is Nancy Billsmer \@ 338-4338\\n\"", - "date: 2001-01-23", - "invoice: 34843", - "product:", - " -", - " description: Basketball", - " price: 450.00", - " quantity: 4", - " sku: BL394D", - " -", - " description: 'Super Hoop'", - " price: 2392.00", - " quantity: 1", - " sku: BL4438H", - "tax: 251.42", - "total: 4443.52", - "...", -]; - -my $in = { - 'bill-to' => { - 'given' => 'Chris', - 'address' => { - 'city' => 'Royal Oak', - 'postal' => '48046', - 'lines' => "458 Walkman Dr.\nSuite #292\n", - 'state' => 'MI' - }, - 'family' => 'Dumars' - }, - 'invoice' => '34843', - 'date' => '2001-01-23', - 'tax' => '251.42', - 'product' => [ - { - 'sku' => 'BL394D', - 'quantity' => '4', - 'price' => '450.00', - 'description' => 'Basketball' - }, - { - 'sku' => 'BL4438H', - 'quantity' => '1', - 'price' => '2392.00', - 'description' => 'Super Hoop' - } - ], - 'comments' => - "Late afternoon is best. Backup contact is Nancy Billsmer @ 338-4338\n", - 'total' => '4443.52' -}; - -my @buf1 = (); -my @buf2 = (); -my $buf3 = ''; - -my @destination = ( - { - name => 'Array reference', - destination => \@buf1, - normalise => sub { return \@buf1 }, - }, - { - name => 'Closure', - destination => sub { push @buf2, shift }, - normalise => sub { return \@buf2 }, - }, - { - name => 'Scalar', - destination => \$buf3, - normalise => sub { - my @ar = split( /\n/, $buf3 ); - return \@ar; - }, - }, -); - -for my $dest ( @destination ) { - my $name = $dest->{name}; - ok my $yaml = Data::YAML::Writer->new, "$name: Created"; - isa_ok $yaml, 'Data::YAML::Writer'; - - $yaml->write( $in, $dest->{destination} ); - my $got = $dest->{normalise}->(); - unless ( is_deeply $got, $out, "$name: Result matches" ) { - local $Data::Dumper::Useqq = $Data::Dumper::Useqq = 1; - diag( Data::Dumper->Dump( [$got], ['$got'] ) ); - diag( Data::Dumper->Dump( [$out], ['$expected'] ) ); - } -} diff --git a/Data-YAML-0.0.6/t/40-writer.t b/Data-YAML-0.0.6/t/40-writer.t deleted file mode 100644 index 4d70780..0000000 --- a/Data-YAML-0.0.6/t/40-writer.t +++ /dev/null @@ -1,200 +0,0 @@ -#!/usr/bin/perl - -use strict; -use warnings; -use Test::More; -use Data::Dumper; -use Data::YAML::Reader; -use Data::YAML::Writer; - -my @SCHEDULE; - -BEGIN { - @SCHEDULE = ( - { - name => 'Simple scalar', - in => 1, - out => [ '--- 1', '...', ], - }, - { - name => 'Undef', - in => undef, - out => [ '--- ~', '...', ], - }, - { - name => 'Unprintable', - in => "\x01\n\t", - out => [ '--- "\x01\n\t"', '...', ], - }, - { - name => 'Simple array', - in => [ 1, 2, 3 ], - out => [ '---', '- 1', '- 2', '- 3', '...', ], - }, - { - name => 'Array, two elements, undef', - in => [ undef, undef ], - out => [ '---', '- ~', '- ~', '...', ], - }, - { - name => 'Nested array', - in => [ 1, 2, [ 3, 4 ], 5 ], - out => - [ '---', '- 1', '- 2', '-', ' - 3', ' - 4', '- 5', '...', ], - }, - { - name => 'Simple hash', - in => { one => '1', two => '2', three => '3' }, - out => [ '---', 'one: 1', 'three: 3', 'two: 2', '...', ], - }, - { - name => 'Nested hash', - in => { - one => '1', - two => '2', - more => { three => '3', four => '4' } - }, - out => [ - '---', - 'more:', - ' four: 4', - ' three: 3', - 'one: 1', - 'two: 2', - '...', - ], - }, - { - name => 'Unprintable key', - in => { one => '1', "\x02" => '2', three => '3' }, - out => [ '---', '"\x02": 2', 'one: 1', 'three: 3', '...', ], - }, - { - name => 'Empty key', - in => { '' => 'empty' }, - out => [ '---', "'': empty", '...', ], - }, - { - name => 'Empty value', - in => { '' => '' }, - out => [ '---', "'': ''", '...', ], - }, - { - name => 'Complex', - in => { - 'bill-to' => { - 'given' => 'Chris', - 'address' => { - 'city' => 'Royal Oak', - 'postal' => '48046', - 'lines' => "458 Walkman Dr.\nSuite #292\n", - 'state' => 'MI' - }, - 'family' => 'Dumars' - }, - 'invoice' => '34843', - 'date' => '2001-01-23', - 'tax' => '251.42', - 'product' => [ - { - 'sku' => 'BL394D', - 'quantity' => '4', - 'price' => '450.00', - 'description' => 'Basketball' - }, - { - 'sku' => 'BL4438H', - 'quantity' => '1', - 'price' => '2392.00', - 'description' => 'Super Hoop' - } - ], - 'comments' => - "Late afternoon is best. Backup contact is Nancy Billsmer @ 338-4338\n", - 'total' => '4443.52' - }, - out => [ - "---", - "bill-to:", - " address:", - " city: 'Royal Oak'", - " lines: \"458 Walkman Dr.\\nSuite #292\\n\"", - " postal: 48046", - " state: MI", - " family: Dumars", - " given: Chris", - "comments: \"Late afternoon is best. Backup contact is Nancy Billsmer \@ 338-4338\\n\"", - "date: 2001-01-23", - "invoice: 34843", - "product:", - " -", - " description: Basketball", - " price: 450.00", - " quantity: 4", - " sku: BL394D", - " -", - " description: 'Super Hoop'", - " price: 2392.00", - " quantity: 1", - " sku: BL4438H", - "tax: 251.42", - "total: 4443.52", - "...", - ], - }, - ); - - plan tests => @SCHEDULE * 5; -} - -sub iter { - my $ar = shift; - return sub { - return shift @$ar; - }; -} - -for my $test ( @SCHEDULE ) { - my $name = $test->{name}; - ok my $yaml = Data::YAML::Writer->new, "$name: Created"; - isa_ok $yaml, 'Data::YAML::Writer'; - - my $got = []; - my $writer = sub { push @$got, shift }; - - my $data = $test->{in}; - - eval { $yaml->write( $data, $writer ) }; - - if ( my $err = $test->{error} ) { - unless ( like $@, $err, "$name: Error message" ) { - diag "Error: $@\n"; - } - is_deeply $got, [], "$name: No result"; - pass; - } - else { - my $want = $test->{out}; - unless ( ok !$@, "$name: No error" ) { - diag "Error: $@\n"; - } - unless ( is_deeply $got, $want, "$name: Result matches" ) { - local $Data::Dumper::Useqq = $Data::Dumper::Useqq = 1; - diag( Data::Dumper->Dump( [$got], ['$got'] ) ); - diag( Data::Dumper->Dump( [$want], ['$expected'] ) ); - } - - my $yr = Data::YAML::Reader->new; - - # Now try parsing it - my $reader = sub { shift @$got }; - my $parsed = $yr->read( $reader ); - - unless ( is_deeply $parsed, $data, "$name: Reparse OK" ) { - local $Data::Dumper::Useqq = $Data::Dumper::Useqq = 1; - diag( Data::Dumper->Dump( [$parsed], ['$parsed'] ) ); - diag( Data::Dumper->Dump( [$data], ['$data'] ) ); - } - } -} - diff --git a/Data-YAML-0.0.6/t/pod-coverage.t b/Data-YAML-0.0.6/t/pod-coverage.t deleted file mode 100644 index c412996..0000000 --- a/Data-YAML-0.0.6/t/pod-coverage.t +++ /dev/null @@ -1,9 +0,0 @@ -#!perl -T - -use Test::More; -eval "use Test::Pod::Coverage 1.04"; -plan skip_all => - "Test::Pod::Coverage 1.04 required for testing POD coverage" - if $@; -all_pod_coverage_ok( - { private => [ qr{^BUILD|DEMOLISH|AUTOMETHOD|START$}, qr{^_} ] } ); diff --git a/Data-YAML-0.0.6/t/pod.t b/Data-YAML-0.0.6/t/pod.t deleted file mode 100644 index 976d7cd..0000000 --- a/Data-YAML-0.0.6/t/pod.t +++ /dev/null @@ -1,6 +0,0 @@ -#!perl -T - -use Test::More; -eval "use Test::Pod 1.14"; -plan skip_all => "Test::Pod 1.14 required for testing POD" if $@; -all_pod_files_ok(); |