Commits

Palmer, 2E0EOL committed d007fd8

Start work on the Writer -- skeleton module

Comments (0)

Files changed (1)

lib/Daybo/Checksum/Writer.pm

+#!/usr/bin/perl -w
+# Daybo Logic Checksum Reader Library for Perl
+# Copyright (c) 2012, David Duncan Ross Palmer, Daybo Logic
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+#     * Redistributions of source code must retain the above copyright notice,
+#       this list of conditions and the following disclaimer.
+#
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in the
+#       documentation and/or other materials provided with the distribution.
+#
+#     * Neither the name of the Daybo Logic nor the names of its contributors
+#       may be used to endorse or promote products derived from this software
+#       without specific prior written permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+# POSSIBILITY OF SUCH DAMAGE.
+#
+# This module is intended to allow easy writing of CHECKSUM files
+# via a Reader, it may support adding entries manually in a later version.
+#
+#----------------------------------------------------------------------------
+use Daybo::Checksum::Base;
+package Daybo::Checksum::Writer; our @ISA = 'Daybo::Checksum::Base';
+
+use strict;
+use warnings;
+use diagnostics;
+
+our $VERSION = $Daybo::Checksum::Base::VERSION;
+#----------------------------------------------------------------------------
+sub new
+{
+	my %Params;
+	my $proto = shift;
+	%Params = @_ if ( scalar(@_) );
+	my $class = ref($proto) || $proto;
+	my $self = {
+		_debug => $Params{'Debug'},
+		_file_name => '',
+	};
+
+	bless($self, $class);
+	return $self;
+}
+#----------------------------------------------------------------------------
+1;
+#----------------------------------------------------------------------------