view release on metacpan or  search on metacpan

lib/DeyeCloud/Client/Device.pm  view on Meta::CPAN

    our @ISA = qw(Class::Accessor Exporter);
    our @EXPORT = qw();
}

sub new :prototype($%) ($class, %options) {
    map { $_ = 0 unless defined $_ } values %options;
    __PACKAGE__->mk_ro_accessors(keys %options);
    return bless { %options }, __PACKAGE__;
}

sub updateTime :prototype($) ($self) {
    return POSIX::strftime('%F %T %Z', (localtime $self->updateTimestamp)[0 .. 5]);
}

*batteryI = \&BATC1;

*batteryP = \&B_P1;

*batteryT = \&B_T1;

*batteryV = \&B_V1;