Win32::OLE::CrystalRuntime::Application::Base - Perl CrystalRuntime.Application Base Object

Win32-OLE-CrystalRuntime-Application documentation Contained in the Win32-OLE-CrystalRuntime-Application distribution.

Index

Code Index:

NAME

Top

Win32::OLE::CrystalRuntime::Application::Base - Perl CrystalRuntime.Application Base Object

SYNOPSIS

Top

  use base qw{Win32::OLE::CrystalRuntime::Application::Base};

DESCRIPTION

Top

This package provide methods common to all Win32::OLE::CrystalRuntime::Application objects.

USAGE

Top

CONSTRUCTOR

Top

new

  my $application=Win32::OLE::CrystalRuntime::Application->new;

METHODS

Top

initialize

debug

FUNCTIONS

Top

list_collection

Returns a perl list given a CrystalRuntime collection

  my @list=$app->list_collection($collection); #()
  my $list=$app->list_collection($collection); #[]

BUGS

Top

SUPPORT

Top

Please try Business Objects.

AUTHOR

Top

  Michael R. Davis
  CPAN ID: MRDVT
  STOP, LLC
  domain=>stopllc,tld=>com,account=>mdavis
  http://www.stopllc.com/

COPYRIGHT

Top

This program is free software licensed under the...

  The BSD License

The full text of the license can be found in the LICENSE file included with this module.

SEE ALSO

Top

Crystal Reports XI Technical Reference Guide - http://support.businessobjects.com/documentation/product_guides/boexi/en/crxi_Techref_en.pdf

Win32::OLE, Win32::OLE::CrystalRuntime::Application, Win32::OLE::CrystalRuntime::Application::Report

Win32-OLE-CrystalRuntime-Application documentation Contained in the Win32-OLE-CrystalRuntime-Application distribution. 
package Win32::OLE::CrystalRuntime::Application::Base;
use strict;
use warnings;

our $VERSION='0.11';


sub new {
  my $this = shift();
  my $class = ref($this) || $this;
  my $self = {};
  bless $self, $class;
  $self->initialize(@_);
  return $self;
}


sub initialize {
  my $self=shift;
  %$self=@_;
}


sub debug {shift->{"debug"}||0};


sub list_collection {
  my $self=shift;
  my $collection=shift;
  my @list=();
  if ($collection->Count > 0) {
    foreach my $index (1 .. $collection->Count) {
      push @list, $collection->Item($index);
    }
  }
  return wantarray ? @list : \@list;
}


1;