File Coverage

blib/lib/Biblio/bp/lib/bp-canon.pl

Criterion	Covered	Total	%
statement	1	9	11.1
branch			n/a
condition			n/a
subroutine	1	4	25.0
pod			n/a
total	2	13	15.3

#
# bibliography package for Perl
#
# "canon format routines
#
# Dana Jacobsen ([e-mail])
# 17 March 1996
#
# This is here so that I can easily see all the steps taken in conversion.
#

package bp_canon;

$version = "canon (dj 17 mar 96)";

######

&bib'reg_format(
  'canon',     # name
  'can',       # short name
  'bp_canon',  # package name
  'canon',     # default character set
  'suffix is can',
# our functions
  'open    is standard',
  'close   is standard',
  'write   is standard',
  'options is standard',
  'read    is standard',
  'explode is unimplemented',
  'implode',
  'tocanon',
  'fromcanon',
  'clear   is standard',
);

######

######

######

######

sub explode {
  local($rec) = @_;

}

######

sub implode {
  local(%entry) = @_;
  local($key);
  local($ent) = '';

  foreach $key (sort keys %entry) {
    $ent .= "$key = $entry{$key}\n";
  }
  #$ent =~ s/$bib'cs_sep/\//go;
  #$ent =~ s/$bib'cs_sep2/,/go;

  $ent;
}

######

sub tocanon {
  @_;
}

######

sub fromcanon {
  @_;
}

######


#######################
# end of package
#######################

1;