File Coverage

blib/lib/Blosxom/Include.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

package Blosxom::Include;

use strict;
use Filter::Simple;
use FileHandle;

use vars qw($VERSION);

$VERSION = 0.002000;

my $include_pattern = qr/^#?\s*(?:IncludeConfig|__END_CONFIG__).*$/m;

FILTER {
  my ($self, $plugin_name) = @_;
  return unless m/$include_pattern/;

  # Try and figure out $config_dir in the same way as blosxom itself
  my $config_dir = '';
  if ($ENV{BLOSXOM_CONFIG_FILE}) {
    ($config_dir = $ENV{BLOSXOM_CONFIG_FILE}) =~ s! / [^/]* $ !!x;
  }
  unless (-d $config_dir) {
    for my $blosxom_config_dir ($ENV{BLOSXOM_CONFIG_DIR}, '/etc/blosxom', '/etc') {
      if (-d $blosxom_config_dir) {
        $config_dir = $blosxom_config_dir;
        last;
      }
    }
  }

  # Load plugin config data
  if ($config_dir  && -d $config_dir &&
      $plugin_name && -f "$config_dir/$plugin_name" &&
                      -r "$config_dir/$plugin_name") {
    if (my $fh = FileHandle->new( "$config_dir/$plugin_name", 'r' )) {
      local $/ = undef;
      my $plugin_config = <$fh>;
      if (defined $plugin_config) {
        my ($before, $after) = split $include_pattern;

        # Munge the line count to include $plugin_config
        my $line_count = ($before =~ tr/\n//);
        $line_count += ($plugin_config =~ tr/\n//);
        $line_count++;

        # Insert config and revised line count
        $_ = $before . $plugin_config . "# line $line_count\n" . $after;
      }
      close $fh;
    }
  }
};


1;

__END__