File Coverage

blib/lib/Astro/SkyX/ccdsoftCamera.pm

Criterion	Covered	Total	%
statement	12	44	27.2
branch	0	12	0.0
condition	0	6	0.0
subroutine	4	9	44.4
pod	0	3	0.0
total	16	74	21.6

package Astro::SkyX::ccdsoftCamera;

use 5.006001;
use strict;
use warnings;
require IO::Socket;
require Exporter;
require Astro::SkyX;

#use vars qw( $SkyXConnection $_count );
our @ISA = qw(Exporter );

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
our ($AUTOLOAD);
# This allows declaration	use SkyX ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(
new connect Send Get
) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(
);

our $VERSION = '0.03';
our @PROPERTIES = qw( Abort Autoguide AtFocus AtFocus2 Calibrate CenterBrightestObject Connect Disconnect focConnect focDisconnect focMovein focMoveout focSettings Move MoveGuideStar TakeColor TakeImage szFilterName setszFilterName szBinModeFromIndex ReductionGroupFromIndex LRGBArray setLRGBArray );
our @READWRITEPROPS = qw( Asynchronous AtFocusAveraging AtFocusInitialMoveDirection AtFocusSamples AutoContrast Autoguider AutoguiderAggressiveness AutoguiderBacklashXAxis AutoguiderBacklashYAxis AutoguiderCalibrationTimeXAxis AutoguiderCalibrationTimeYAxis AutoguiderDelayAfterCorrection AutoguiderExposureTime AutoguiderLogData AutoguiderMaximumMove AutoguiderMinimumMove AutoSaveFileFormat AutoSaveFocusImages AutoSaveOn AutoSavePath AutoSavePrefix BinX BinY CalibrationVectorXNegativeXComponent CalibrationVectorXNegativeYComponent CalibrationVectorXPositiveXComponent CalibrationVectorXPositiveYComponent CalibrationVectorYNegativeXComponent CalibrationVectorYNegativeYComponent CalibrationVectorYPositiveXComponent CalibrationVectorYPositiveYComponent CameraInterface ColorSeries ContinuousFocus DeclinationAtCalibration Delay DownloadAbortedExposures DownloadAbortedExposuresAfterSeconds EnabledXAxis EnabledYAxis ExposureStatus ExposureTime FilterIndexZeroBased focBacklash focLargeStepSize focPort focSmallStepSize focTemperature focTemperatureCompensationMode FocusExposureTime FocusGraphType Frame GuideErrorX GuideErrorY GuideStarX GuideStarY HighPriorityDownloads ImageReduction ImageUseDigitizedSkySurvey lAsynchronous MoveToX MoveToY MoveVia Percent ReductionGroupName RegulateTemperature ReverseX SavedCalibrationTimeX SavedCalibrationTimeY SaveImagesWithUTC SBIGFanOn SBIGGuiderAntiBloom SBIGOffChipBinning ScreenShutter Series ShowAutoguider ShutDownTemperatureRegulationOnDisconnect Status Subframe SubframeBottom SubframeLeft SubframeRight SubframeTop TelescopeDeclination TemperatureSetPoint ToNewWindow TrackBoxX TrackBoxY   );

# Preloaded methods go here.

##---##

  sub new {
    my ($caller, %arg) = @_;
    my $caller_is_obj = ref($caller);
    my $class = $caller_is_obj || $caller;

    my $self = bless {
        _debug          => $_[1],
	}, $class;
  # Private count increment/decrement methods
#    $self->_incr_count();
    return $self;
  }
#    sub _incr_count { ++$_count }
#    sub _decr_count { --$_count }

 sub AUTOLOAD ($;$) {
    no strict "refs";
    my ($self, @newval) = @_;
    my $newtext = '';
    my $js = "/* Java Script */ \r\n";
    if ($AUTOLOAD =~ /.*::(.*::.*)/) {
      my $method = $1;
      # Let's build the javascript
#      $newtext = join ',', map{ qq/"$_"/ }@newval;
      $newtext = join ',', map{ /^[0-9.-]*$/ ? $_ : qq/'$_'/ }@newval;
      $method =~ tr/::/./s;

      my ($package, $propertyName) = $AUTOLOAD =~ m/^(.+::)(.+)$/;
      if(haveProperty($propertyName)){
        $js .= $method . "(" . $newtext . ");\r\n";
      } elsif(haveReadWriteProp($propertyName) and length($newtext) ){

        $js .= $method . ' = ' . $newtext . ";\r\n";
      } else {
        $js .= $method . ";\r\n";
      }
      Astro::SkyX::Send($self,$js);
      return Astro::SkyX::Get($self);
    }
    die "No such method: $AUTOLOAD";
 }

 sub haveReadWriteProp{
        my ($value) = @_;
        for my $property (@READWRITEPROPS){
                if($property eq $value){
                        return "1";
                }
        }
        return undef;
 }

 sub haveProperty{
        my ($value) = @_;
        for my $property (@PROPERTIES){
                if($property eq $value){
                        return "1";
                }
        }
        return undef;
 }

 sub DESTROY {
#    $_[0]->_decr_count();
 }

1;
__END__